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PREFACE 


This  volume  describes  the  computer  programs  shown  in  figure  1.  The  system 
consists  of  15  programs  written  in  FORTRAN  for  operation  on  CNA's  CDC  3800  com¬ 
puter  and  a  standard  statistical  regression  program,  BIMED34.  For  simplicity,  only 
the  machine- readable  output  is  shown  in  figure  1.  Every  program  produces  a  printed 
output. 


The  description  of  each  program  consists  of  a  statement  of  its  purpose,  a  de¬ 
scription  of  its  logic,  the  definition  of  its  dimensioned  variables,  a  list  of  changes  to 
be  made  to  it  as  a  result  of  changes  to  other  programs  and  vice  versa,  and  a  listing  of 
the  program  and  subroutines.  Whenever  a  program  produces  pn  output  tape,  its  struc¬ 
ture  and  format  are  also  described.  The  appendix  summarizes  the  effect  of  changes  to 
the  dictionary  and  data  tapes  on  all  the  programs. 

The  reader  should  refer  to  volume  I  for  a  glossary  of  terms  and  a  summary  of 
the  methodology,  including  the  mathematical  models  that  are  the  bases  for  certain  pro¬ 
grams.  If  a  more  detailed  discussion  of  techniques  and  models  is  wanted,  the  reader 
should  refer  to  CNA  RC  291. 


MAINTAINING  THE  DATA 
AND  DICTIONARY  TAPES 


FIG.  1:  FLOW  CHART  OF  THE  LOS  SYSTEM  OF  PROGRAMS 
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MAINTAINING  THE  DATA  TAPES 


STRUCTURE  OF  THE  DATA  TAPES 

There  are  three  law  of  the  sea  data  bases.  The  first,  on  two  reels,  contains  all  data 
that  has  been  extracted  from  the  primary  source  documents,  the  second  contains  all  data 
from  the  secondary  source  documents,  and  the  third  contains  all  inactive  data  from  both 
primary  and  secondary  sources.  The  first  two  data  bases  are  referred  to  as  the  active 
data  base,  and  the  third  is  referred  to  as  the  historical  data  base.  For  purposes  of 
analysis  only  the  active  data  base  has  been  used. 

The  tapes  are  unblocked  and  7-tracked.  Each  is  organized  by  country  number  and, 
within  country,  numerically  by  theme  number.  The  primary  data  tapes  contain  approxi¬ 
mately  30,000  records,  the  secondary  tape  12,000  records,  and  the  historical  tape 
8,000  records. 

A  record  is  equivalent  to  an  observation  and  is  written  in  the  following  BCD  format: 

13,  IX,  411,  2X,  13,  6X,  14,  Al. 

The  eight  fields  contain:  (1)  country  number,  (2)  regional  flag,  (3)  repetition  flag, 
(4)  classification  code,  (5)  reliability  code,  (6)  document  number,  (7)  theme  number, 
and  (8)  letter  associated  with  the  theme  number.  For  a  detailed  description  of  these 
entries,  the  reader  should  refer  to  appendix  A  of  the  users  guide. 

PROGRAM  CHECK 

Purpose 

This  program  verifies  that  new  observations  have  been  accurately  transcribed  and 
keypunched.  It  produces  a  list  of  observations  in  the  order  in  which  they  were  extracted 
from  the  documents . 

Method 

The  country  names  are  read  off  the  dictionary  tape  and  stored  in  NACON.  The  input 
deck  of  observations  is  read  a  card  at  a  time.  A  document  header  is  produced  whenever 
the  document  number  changes  and  a  country  header  is  produced  whenever  the  country 
number  changes.  Each  observation  is  printed  with  its  theme  number  and  letter  designa¬ 
tion,  if  any. 

Dimensioned  Variable 

NACON,  dimensioned  149  by  2,  contains  a  two  field  name  for  each  country. 
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erational  Effects  of  System  Changes 


This  program  depends  upon  the  current  structure  and  format  of  a  new  observation 
(update  card)  and  the  country  dictionary.  If  an  update  card  is  modified,  format  2  and 
statement  10  may  have  to  be  changed.  If  the  number  of  countries  exceeds  149,  MAXC 
must  be  increased  and  NACON  redimensioned.  If  the  country  dictionary  file  is 
restructured  or  reformatted,  format  1  may  have  to  be  changed. 

Program  Listing 


The  listing  of  program  CHECK  follows. 


PROGRAM  OtCK 
.DIMENSION  HACC‘1  (  1^9,2) 

DATA  (‘N3LANK=1H  > 

THIS  PROGRAM  L  OEFG  FG  iF.ciFV  '  h  -  T  TMF  Si.l'<  *KY  ,  DO  OUMEf..-  A  N  ) 

theme  n!Jmhej  l  h-\k  me- n  ^ccc*  atilv  ti  antcrIoe:  m  ,o  <ryp'jf<CHE"> 

MAXC  =  l4-‘*  |KDOn  =  ?  ‘IFLAG=C 

ie  ad  (i  ,i )  <  (Uf;.,. (i .  j) ,  jn, ?> , :  =  j ,  maxc* 

„  READ  (F>  J,  <?)  Ii  C'.JN,  lr  U-  ,  :  HEHF  ,  Ilf:  E' 

I F  <  C  OF  ,  f>  j  >  1  Ci  C  ,  2  j 
:  if  ( i l e  r F - .  c. o . » i l e t r ». ~ \ -3 l ••> n * 

Ir  (I  DCC.  F.u.K'CJO  GO  12 

<OOC=IOC.Z 

F,\IN  i  4»  i  jul 

:  IF  (ICOUS.FO.  NOCUN*  r-PI!.'  bi.  T •  *E  M  E  » I L  ~  r  F 

IF  (ICCtjw.E..  NCGs.'N)  -FI’.'  >t  {  -,-CCM:  <»  j)  #  .  1  'K-'t-  ,  II.  --T 

h?.oun=  i^rjun 

o j  r  S  1" 

F^PHAT  iTATtMc.NTS 

1  FORMAT  (S*,i(i,in) 

e  FORMAT  (U,  7X  ,1  ?;*>v  t:4.  Ail 

A  FORMAT  T  H"  Fj.LSHio",  •.  ‘/ATI  ;  .1  -  -  E  I  <  ’<  JC  U"E  OT  *  »  IS) 

5  FORMA  T  f / ,0X, mo , AG, 4> ,14, U  > 

6  F  •,RMAT  <  2  ?X,  lu.  All 


PxlOGRAM  REMOVE 


Purpose 

This  program  extracts  all  data  on  specified  theme  numbers  from  an  active  data  tape. 
Its  primary  function  is  to  delete  all  observations  on  outdated  or  inactive  themes  and 
punch  them  in  a  format  that  can  be  used  to  add  them  to  the  historical  tape.  Its  secondary 
function  is  to  equivalence  two  or  more  theme  numbers  with  the  same  substantive  meaning 
to  a  single  number  by  deleting  all  observations  on  the  "duplicate"  theme  numbers  and 
punching  each  with  the  permanent  number. 

Method 

For  each  theme  that  is  to  be  retired,  a  flag  is  set  in  THEME  which  distinguishes  a 
lettered  from  a  non-lettered  theme  to  be  retired.  If  the  retired  theme  is  lettered,  its 
number  and  letter  are  stored  in  NSPEC. 

For  each  theme  to  be  equivalenced,  a  flag  is  set  in  THEME  which  distinguishes 
lettered  from  non-lettered  equivalences  as  well  as  from  retired  themes .  If  either  the 
duplicate  or  the  permanent  theme  contains  a  letter,  then  both  are  stored  in  NSPEC. 

The  active  data  tape  is  read  a  record  at  a  time.  If  the  record  does  not  refer  to  a 
theme  number  being  changed,  it  is  written  on  the  output  tape.  If  it  refers  to  a 
non-lettered  theme  being  retired  or  equivalenced,  the  observation  is  deleted  and  punched. 
If,  on  the  other  hand,  the  record  refers  to  a  theme  number  which  has  been  flagged  as  a 
lettered  change,  NSPEC  is  searched  for  this  record’s  number  and  letter.  If  it  is  found, 
the  record  is  deleted  and  punched.  If  it  cannot  be  found,  because  this  record's  version 
is  not  being  changed,  the  record  is  written  on  the  output  tape. 

Dimensioned  Variables 

There  are  four  dimensioned  variables  in  program  REMOVE: 

(1)  THEME,  dimensioned  1599,  contains  a  field  for  each  theme  number.  This  array 
consists  of  a  flag  for  each  theme  number  to  denote  if  and  how  it  is  being  changed. 

THEME  (M): 

=  O  if  theme  M  is  non-existent  or  unchanged 
=  M  if  all  versions  of  theme  M  are  being  retired 
=  -M  if  only  lettered  versions  of  theme  M  are  being  retired 
=  K  if  all  versions  of  theme  M  are  being  equivalenced  to  versions  of  theme  K 
=  -K  if  a  version  of  theme  M  is  being  equivalenced  to  a  version  of  theme  K. 
(Either  M  or  K  or  both  refer  to  lettered  themes.) 


(2)  MTEMP,  dimensioned  4,  contains  the  temporary  storage  of  the  retired  or 
equivalenced  theme  being  processed.  When  retired  themes  are  being  stored,  only  the 
first  two  fields  are  filled  with  the  theme  number  and  letter,  if  any.  When  equivalences 
are  being  stored,  the  theme  number  and  letter  of  the  duplicate  theme  are  followed  by  the 
theme  number  and  letter  of  the  permanent  theme. 

(3)  NSPEC,  dimensioned  500  by  4,  contains  the  permanent  storage  of  lettered  themes 
being  retired  or  equivalenced.  It  takes  on  the  values  of  MTEMP  whenever  MTEMP  (2)  or 
MTEMP  (4)  contains  a  letter. 

(4)  RECORD,  dimensioned  5,  contains  all  the  information  from  the  record  being 
processed,  namely,  country  number,  special  codes,  document  number,  theme  number, 
and  letter,  if  any. 

Operational  Effects  of  System  Changes 

Any  changes  in  basic  format  of  the  input  data  tape  could  affect  the  way  RECORD  is 
read  and  how  its  fields  are  interpreted.  Less  dramatic  effects  are  that  if  the  maximum 
theme  number  exceeds  1599,  MAX  must  be  increased  and  THEME  redimensioned;  and 
if  the  number  of  retired  or  equivalenced  themes  involving  a  letter  exceeds  500,  NSPEC 
and  NLETER  must  be  increased. 

Program  Listing 


The  listing  of  program  REMOVE  follows. 


o  o  o  o  o  o 


PROGRAM  REMOVE 

01 MENS  ION  THEME (15 99) , MTEMP(4 ) , NSPEC <5  00 , 4 > , RECORD ( 5) 

DATA  (BLANK=1H  I 

TYPE  INTEGER  THEME  « RECORO  .BLANK 

INITIALIZE  MAX  NO  OF  THEMES,  MAX  NO  OF  RETIREES,  MAX  NO  OF 
LETTEREO  CHANGES.. ..LOGICAL  UNIT  OF  INPUT  AND  OUTPUT 
TAPES,  LOGICAL  UNIT  OF  REMOVED  RECOROS . . ZERO  OUT 
COUNTER  AND  ARRAY  OF  THEME  FLAGS 

MAX=1599  $NL£TER=500 

LIN- 1  *  L0UT=2  $  L RET =6 2  $NCOUNT=0 

00  100  M-1,MAX 
100  THEME  <  M  J  =0 

C  RE AO  MAIN  CONTROL  CARO  ...NUMBER  OF  RETIREO  AND  EQUIV  THEMES 
C 

REAO  1 ,NRET , NEQUIV 
C 

C  SET  UP  FLAGS  IN  ARRAY  THEME  TO  DENOTE  RETIREO  THEMES . 

C  IF  K  IS  A  NON-LETTERED  THEME  THEME  (K)  =  K  ANO  IF  NOT  -K 
C  IF  LETTEREO  ALSO  FILL  ARRAY  NSPEC  WITH  K  ANO  LETTER 

c  ....... 

00  200  M=1,NRET 
REAO  2,  (MTEMP(MM) ,MM=1,2I 
PRINT  2, (MTEMP(MM) ,MM=1,2)  v 
IF(MTEMP(M) .EQ. BLANK)  GO  TO  150 
NCOUNT=NCOUNT*l 

IF  (NCOUNT . GT . NLETER)  GO  TO  2000 
NSPEC ( NCOUNT ,1)=MTEMP<1) 

NSPEC<  NCOUNT ,2)=MTEMP(2) 

NSPEC (NCOUNT, 31=0 
THEME <  MTEMP(l) )=-l*MTEMP(l) 

GO  TO  200 

150  THEME (MT EM Pill )=MTEMP(1) 

200  CONTINUE  ■  .  . 

REAO  EQUIV  THEMES.. IF  REFER  TC  LETTEREO  THEMES  FILL 
ARRAY  NSPEC  WITH  INFO  ON  INPUT  CARD  AND  SET  THEME ( K> 

EQUAL  TO  MINUS  EQUIV  OF  K 

IF  NON-LETTEREC,  ONLY  SET  THEME <KJ=EQUIV  THEME  TO  K 

300  00  400  1=1, NEQUIV 

REAO  2, (MTEMP(M»,M=1,4> 

PRINT  2, (MTEMP(M1,M=1,4» 

IF(MTEMP(2I. EQ. BLANK. ANO. MTEMP(4I .EQ.BLANK)  GO  TO  350 
NCOUNT =NC0UN  T  +  l 

IF(NCCUNT.GT. NLETER)  GO  TO  2000 
00  325  MM= 1 , 4 

325  NSPEC ( NCOUNT ,MM)=MTEMP(MM) 


oooo  o  o  o  o  uouuo  o  o  o  ooo  o o o 


THEME  <HT£MP( 1) )=-l*MT£MP(3» 

GO  TO  400 

350  THEKE(MTEMP<1> )=MTEMP<3) 

40 0  CONTINUE 

RE  AO  A  RECORD  AND  IE  IT  DOES  NOT  REFER  TO  A  THEME 
BEING  CHANGED. .WRI TE  ON  THE  OUTFUT  TAPE 

500  REA0<LIN,3» (RECORO < M ), M=1 , 5) 

IF<EGF,LINJ5Q0U,60Q 
600  MM-THEME {RECORO (4) ) 

IF (MM) 800,650,700 

650  WRITE (L CUT, 3) < RECORG <M ) , M=1 , 5) 

GO  TO  500 

RECORO  REFERS  TO  A  NON-LETTERED  THEME  BEING  CHANGED 
PUNCH  RECORO 

700  IF (MM. EQ. RECORO (4) )  WRITE ( LRET , 3 )( RECORD ( M ), M=1 , 5) 

IF  (MM. NE. RECORO ( 4) >  WR IT E < LRET, 3 >  ( RECORD ( M ) , M  = 1 , 3 )  , MM, BLANK 
GO  TO  500 

RECORD  REFERS  TO  A  LETTERED  THEME  BEING  CHANGED 
PUNCH  RECORD  IF  IT  CONTAINS  THE  LETTER  BEING  CHANGED 
OTHERWISE  WRITE  ON  OUTPUT  TAPE 

800  MM=IABS(MM) 

IFLAG=  0 

OO  900  K=1 , NCOUNT 

■  IF(REC0RD(4) . NE . NS  PEC < K , 1 > )  GO  TO  900 
IF(REC0R0<5> .NE.N5PEC(K,2>)  GO  TO  900 
IF (NSPEC ( K,3 J . EQ.0)  WRITE (LRET, 3) (RECORO < M> , M=1 , 5) 

IF  (NSPEC <K,3> .NE.Q )  WR ITE ( LRET , 3 ) (RECORD (M) ,M=1,3> , NSPEC (K, 3) , NSPE 
1C(K,4» 

IFLAG=  1 
900  CONTINUE 

IF(IFLAG.EQ. 0)  WRI TC <L OUT , 3 ) ( RECORO (M>  ,M=1,5J 
GO  TO  500 

PRINT  ERROR  MESSAGES  CONCERNING  OVERFLOWING  DIMENSIONS 

000  PRINT  4 , NLETER 
GO  TO  500 

ENOFILE  OUTPUT  TAPE 
000  ENOFILE  LOUT 

FORMAT  STATEMENTS 

1  FORMAT (215) 

2  FORMAT (2  <14, Al ) ) 

3  FORMAT  <I3,1X,I4,2X,I3,6X,I4,A1) 

4  FORMAT <*  TOO  MANY  LETTEREO  THEMES-CXCEEOS  DIMENSION* ,151 
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PROGRAM  UPDATE 


Purpose 

This  program  creates  a  new  data  tape  by  merging  an  existing  one  with  an  ordered 
card  deck  of  additions  and  deletions.  It  preserves  the  basic  structure  of  the  data  tape. 

Method 

A  record  and  card  are  read  and  compared.  The  record  is  written  on  the  output  tape 
when  any  of  the  following  conditions  are  met: 

(1)  The  record  pertains  to  a  smaller  country  number. 

(2)  They  both  pertain  to  the  same  country 

(a)  and  the  record  refers  to  a  smaller  theme  number; 

(b)  and  the  same  theme  number,  and  the  card  is  being  added; 

(c)  and  the  same  theme  number,  and  the  record  is  not  identical  with  the 
delete  card. 

(3)  End  of  file  has  been  encountered  in  the  card  deck. 

The  addition  card  is  written  on  the  output  tape  when  any  of  the  following  conditions  are 
met: 

(1)  The  card  refers  to  a  smaller  country  number  than  the  record. 

(2)  They  are  referring  to  the  same  country,  and  the  card  is  for  a  smaller  theme 
number. 

(3)  End  of  file  has  oeen  encountered  on  the  input  tape. 

A  deletion  is  accomplished  whenever  the  card  and  record  match  on  country,  theme,  and 
document  number. 

Dimensioned  Variables 

The  data  on  the  tape  is  read  into  RECORD,  dimensioned  5.  The  update  card  is  read 
into  CARD,  dimensioned  6.  Both  arrays  are  composed  of  the  following  information: 

Field  Description 

1  Country  number 

2  Remark  codes 

-  regional  code 

-  repetition  code 

-  classification  code 

-  reliability  code 

3  Document  number 

4  Theme  number 

5  Letter  associated  with  the  theme,  if  any 

6  Deletion  (1)  or  addition  (0  or  blank)  flag  (CARD  only) 
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Operational  Effects  of  System  Changes 


If  alterations  are  made  to  program  UPDATE  which  change  the  structure  or  format  of 
the  data  tape,  corresponding  alterations  must  be  made  to  the  format  and  possibly  the 
logic  of  programs  MATRIX,  CHECK,  REMOVE  and  LETTER. 

Program  Listing 

The  listing  of  program  UPDATE  follows. 


o  o  o  oooooonooo  OOOO  OOOO  OOO  O  O  O  OOOOCJ 


PROGRAM  UPDATE 

DIMENSION  REC0R0(5> ,CAR0(6> 

TYPE  INTEGER  RECORO, CARD 

INITIALIZE  EXISTING  OATA  TAPE  TO  LOGICAL  UNIT  1, 
UPOATEO  OUTPUT  TAPE  TO  LOGICAL  UNIT  2  ANO  CARO 
OECK  TO  LOGICAL  UNIT  60 

LIN  =1  $  LOUT  =2  $  LCARD  =  60 

READ  A  RECORD  FROM  THE  EXISTING  DATA  TAPE 

100  READ (LIN, 1) (RECORO (M) »  M=1 »  5) 

IF(EOFfLlN)  900*200 

READ  A  CARO  FROM  THE  UPDATE  DECK  OF  MODIFICATIONS 

200  RE AO (LCARD* 1 ) (CARD (M) , M=l» 6) 

IF (EOF  *LCARO )  800*300 

OOES  CARD  REFER  TO  SAME  COUNTRY  BEING  PROCESSED 
ON  THE  TAPE 

300  IF (REC ORD ( 1 1 -CARO ( 1 M  400.500,600 

NO • « RE  CORO  REFERS  TO  EARLIER  COUNTRY... 

WRITE  THE  RECORO  ANO  READ  ANOTHER  RECORD 

400  WRITE (LOUT, 1  I (RECORO (M » ,M=1, 51 
RE AO (LIN, 1) (RECORD (M) ,M=1,5J 
IF (EOF , LIN)  900,300 

YES.. .THEY  REFER  TO  SAME  COUNTRY.. 

OO  THEY  REFER  TO  THE  SAME  THEME.... 

IF  EARLIER  THEME  ON  RECORO,  WRITE  RECORO 

IF  EARLIER  THEME  ON  CARO  ,  WRITE  CARD  ON  OUTPUT  TAPE 

IF  SAME  THEME  ♦  AOOITION,  WRITE  THE  RECORO 

IF  SAME  THEME  ♦  OELETION,  COMPARE  DOC  ♦  LETTER  FIELDS 

IF  MATCH,  OELETE  RECORO  ANO  PRINT  MESSAGE 

IF  DO  NOT  MATCH,  WRITE  RECORD 

500  IF( REC  0R0(4)“CAR0(4) )  400,550,600 
550  IF (CAR0(6) .EO. 0)  GO  TO  400 

IF(REC0RD(3) »NE.CARD(3))  GO  TO  400 
IF (REC  OR 0(5) .NE.CARD(5))  GO  TO  400 
PRINT  2, (RECORD(M» ,M=t,5» 

GO  TO  100 

NO,  CARO  REFERS  TO  AN  EARLIER  COUNTRY 

IF  AOOITION,  WRITE  CARO,  READ  ANOTHER  CARD,  PROCESS  IT 
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IF  DELETION.  PRINT  MESSAGE  THAT  NOT  FOUND  AND  REAO 
THE  NEXT  CARO 


600  IF <CAR0<6) ,EQ.  0)  650,7  00 
650  WRITE(LOUT,l > (CARD (M),M=1,5) 

PRINT  3,  (CAKD(M) »  M  =  1 »  5 ) « (RECORD  (MM) , MM  =  1 , 5 ) 

GO  TO  200 

700  PRINT  4, (CARD(M) ,M=1, 5) 

GO  TO  200 

ENO  OF  FILE  ENCOUNTERED  ON  THE  CARO  DECK. 

CONTINUE  TO  RE  AO/WRI TE  UNTIL  EOF  IS  REACHED  ON  TAPE 

800  WRITE ( LOUT • 1 ) (RECORD (M >, M= 1 , 5 ) 

REAO (L IN, 1) (RECORD (M), M= 1,5) 

IF(EOF,LIN)10QQ,80Q 

ENO  OF  FILE  ON  THE  TAPE,  READ  REMAINING  CAROS 
IF  ADDITION,  WRITE  CARO  ON  TAPE 

IF  DELETION,  PRINT  ERROR  MESSAGE  THAT  CARD  WAS  NOT  FOUND 

900  IF (CARD (6) , EQ. 0 )  W R ITE ( LOUT , 1 ) ( C ARD ( M) , M= 1 , 5) 

IF (CAR  0(6) .NE.QI  PRINT  4, (CARO(M) »M=1 »  5) 

RE Ad (L  CARO , 1 ) ( CARO ( M ) , M  =  1 , 6 ) 

IF(EOF,LCAkG)  1000,900 

ENO  OF  FILE  ON  CARG  DECK  ANC  TAFE. . , ENOFILE  OUTPUT  TAPE 
1000  ENOFILE  LOUT 

FORMAT  STATEMENTS 

1  FORMAT  (13,  IX, 14, 2X, 1 3, 6X, 14, Al, ID 

2  FORMAT (20X,4I5,A2»*  WAS  DELETED*) 

3  FORMAT (*  CARO*, 415 ,A2,*  WAS  PLACED  8EF0RE  RECORD* , 415 , A2 ) 

4  FORMAT (4H****, *  CA RO * , 4 1 5 , A 2 , *  CAN  NOT  BE  FOUNO  ON  THE  TAPE*) 
ENO 


MAINTAINING  THE  DICTIONARY  TAPE 


STRUCTURE  OF  THE  DICTIONARY  TAPE 

The  LOS  dictionary  tape  consists  of  six  files .  Each  program  automatically  accesses 
the  file(s)  it  requires.  The  dictionary  tape  is  written  in  BCD  and  is  an  unblocked, 

7-track  tape.  The  files  are  in  the  following  order: 

(1)  Country  dictionary 

(2)  Theme  dictionary 

(3)  Major/minor  dictionary 

(4)  Issue -variable  dictionary 

(5)  Lettered  theme  dictionary 

(6)  Independent  variable  dictionary 

For  a  detailed  description  of  the  format  and  structure  of  each  of  these  files,  see 
appendix  B  of  the  users  guide . 

PROGRAM  SEARCH 

Purpose  4 

The  primary  function  of  program  SEARCH  is  to  locate  specified  themes  within  the 
major/minor  and  is  sue -variable  dictionaries.  It  lists  their  assignments,  but  does  not 
delete  them .  This  program  can  be  used  to  verify  that  every  theme  belongs  to  one  and 
only  one  major  and  minor  topic  or  to  aid  the  user  when  retiring  themes  from  the 
dictionary  tape.  It  can  process  1,000  themes  in  a  single  run. 

Method 

The  program  first  reads  the  theme  range  selection  cards.  The  array  JCODE  is 
filled  with  counters  so  that  JCODE(M)  =  N  when  theme  M  is  the  Nth  theme  to  be  pro¬ 
cessed.  The  program  produces  an  overflow  message  if  there  are  more  than  1, 000 
themes  to  be  processed. 

Then  the  major/minor  dictionary  is  read.  If  the  Nth  theme  being  processed  is 
located  in  the  major  and  minor  topic,  LOCATE(N,  major  topic)  is  set  equal  to  the 
minor  topic  number.  After  all  topics  are  read,  LOCATE  is  printed  whenever  its  cell 
is  non-zero.  A  message  is  produced  when  all  of  its  cells  are  zero  (no  assignment  to  a 
major  and  minor  topic)  or  when  more  than  one  cell  is  non-zero  (assigned  to  more  than 
one  major  and  minor  topic). 

Finally  the  issue -variable  dictionary  is  read.  If  the  Nth  theme  being  processed  is 
located  within  the  issue-variable,  LOCATE(N,  counter)  is  set  equal  to  the  issue-variable 
number.  The  counter  is  increased  as  the  cells  are  filled.  The  assignments  to 


issue -variables  are  printed  in  numerical  order  by  theme  number  after  the  entire 
issue-variable  dictionary  has  been  read. 

Dimensioned  Variables 

Program  SEARCH  contains  four  dimensioned  variables: 

(1)  JCODE  is  dimensioned  1599,  one  field  for  each  theme  number.  This  array  serves 
as  a  flag  for  the  themes  being  processed.  JCODE(M)  =  0  if  M  is  not  being  processed; 
JCODE(M)  =  N  if  M  is  the  Nth  theme  processed. 

(2)  THEMES,  dimensioned  500,  contains  the  temporary  storage  of  all  themes  in  the 
minor  topic  or  in  the  issue-variable  being  searched. 

(3)  LOCATE  is  dimensioned  1,000  by  20.  Each  row  represents  a  theme  being 
processed  (up  to  a  current  maximum  of  1,000).  The  columns  take  on  different  meanings 
for  the  major/minor  and  issue -variable  dictionaries.  When  the  assignments  to  topics 
are  being  stored,  LOCATE(N,  major  topic)  is  zero  when  the  Nth  theme  being  processed 
is  not  assigned  to  this  major  topic  and  is  equal  to  the  minor  topic  when  it  is.  When  the 
assignments  to  issue -variables  are  being  stored,  LOCATE  is  filled  across  the  row  as  the 
Nth  theme  is  located.  The  Nth  theme  cannot  belong  to  more  than  20  issue -variables. 

(4)  KOUNT  is  an  array  dimensioned  1,000.  Each  field  corresponds  to  a  theme 
being  processed.  KOUNT  is  the  counter  used  to  fill  LOCATE  with  assignments  of 
themes  to  issue -variables.  KOUNT(N)  is  increased  by  1  everytime  the  Nth  theme  is 
located  in  the  issue -variable  dictionary. 

erational  Effects  of  System  Changes 


Since  this  program  is  dependent  upon  the  major/minor  and  issue-variable  dictionaries, 
any  change  to  their  structure  or  format  will  have  an  operational  effect.  Numerous  minor 
changes  can  be  made  easily.  If  the  largest  theme  number  in  the  theme  dictionary  is  larger 
than  1599,  NTHEME  must  be  set  equal  to  the  new  maximum  and  JCODE  must  be  dimensioned 
at  least  as  large.  If  the  number  of  major  topics  is  increased,  NMAJ  must  be  equal  to  the 
largest  major  topic  and  LOCATE  must  have  at  least  as  many  columns  as  NMAJ.  If  the 
number  of  issue-variables  is  increased,  NVAR  must  be  equal  to  the  largest  issue -variable 
number.  If  themes  are  assigned  to  more  than  20  issue-variables,  LOCATE  must  be  expanded. 
If  more  than  1,000  themes  are  to  be  processed  in  a  single  run,  KOUNT  and  LOCATE  must 
be  expanded.  If  the  number  of  themes  assigned  to  any  issue-variable  or  minor  topic 
should  ever  exceed  500,  THEMES  must  be  expanded. 

Program  Listing 


The  listing  of  program  SEARCH  follows. 


OOOO  O  O  O  O  U  O  ooo 


PROGRAM  SEARCH 

DIMENSION  JCOO£(1599)»THEMES(500),  MOUNT (1000) « LOCATE (1000,20) 

TrPE  INTEGER  THEMES, COUNT 

INITIALIZE  NUMBER  OF  MAJOR  TOPICS. NUMBER  OF  VARIABLES, MAXIMUM 
THEME  NUMBER, LOGICAL  UNIT  OF  DICTIONARY  AND  OUTPUT,  COUNTER 

NMAJ=1 7  $NVAR=Z0  $NTHEME=1599  $LOICT=i  $L0UT=61  SNCOUNT=0 

READ  THEME  RANGE  SELECTION  CARDS 

100  READ  1, MIN, MAX 

IFCEOF, 60)250, 150 
150  OO  200  M=MIN,MAX 
NCOUNT=NCOUNT*l 
IFtNCOUNT.GT .1000)  GO  TO  750 
KOUNT ( NCOUNT ) =0 
200  JCOOE(M)=NCOUNT 
GO  TO  100 

REAO  MAJOR/MINOR  DICTIONARY. .FILL  LOCATE  WITH  MAJ/MIN  ASSIGNMENTS 

250  DO  300  M=l,2  ,, 

300  CALL  SKIPFILE  (LDICT)  ■'*  \ 

DO  450  MAJOR=l,NMAJ 
RE AO (LDICT , 2 ) NMIN 
DO  400  MINOR=l , NMIN 
RE  AD ( LDI CT ,2 ) NO 

REA0(L0ICT,3) ( THEMES (M ), M=l, NO) 

DO  350  M=1,N0 
MM^JCOOE (THEMES (M) ) 

' IF(MM.EO.O)  GO  TO  350 

IF (LOCATE (MM, MA JOR ) .NE.O)  WRITE (LOUT , 13) THEMES ( M) , NMI N, MAJOR 
LOCATE (MM, MAJOR) =MINOR 
350  CONTINUE 
400  CONTINUE 
450  CONTINUE 

PRINT  ASSIGNMENTS  NUMERICALLY 
PRINT  7 

00  550  INOEX=l, NTHEME 
IFLAG=0 

IF ( JCODE (I NO EX) .EQ.O)  GO  TO  550 
00  500  MAJOR3 1 , NMA J 
MMsJCODE (INDEX) 

IF(LOCATE(MM, MAJOR) .EQ.O)  GO  TO  500 
IF (IFLAG. EQ.  1 )  WRITE (LOUT, 6) INOEX 
IF (IFLAG.EQ. 0)  IFL  AG=1 

WRITE (LOUT, 4) INOEX, MAJOR, LOCATE (MM, MAJOR) 
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o  n  o  ooo  o  o  o 


500  LOCATE <MM, MAJOR) =0 

IF ( I FL  AG . EQ. 0 1  WRITE (LOUT  ,  5) INDEX 
550  CONTINUE 

RF.AD  VARIABLE  DICTIONARY 

CALL  SKIPFILE  (LDICT) 

PRINT  8 

DO  650  IN0EX=1»NVAR 
REA0(LDICT,2)  NO 
READ(LUICT.B) ( THEMES <M ), M=1 , NO) 

OO  600  M=l,NO 
MM^JCOOE (THEMES  (MJ  i 
IF (MM. EQ . 0  I  GO  TO  600 
KOUNT<  MM)=KOUNT < MM ) *1 
IF (KOUNT (MM) .GT. 20 )  GO  TO  800 
COUNT=KOUNT (MM) 

LOCATE (MM, COUNT) =INDEX 
600  CONTINUE 
650  CONTINUE 

PRINT  VARIABLE  ASSIGNMENTS 

00“ 700  INDEX=1,NTHEME 

IF (JCODE (INDEX) .EO.O)  GO  TO  700 

MM=JCOOE (INDEX)  SCOUN T =KOUN T (MM ) 

WRITE (LOUT.IO)  INDEX, (LOCATE (MM , M) ,M  =  t, COUNT) 

700  CONTINUE 
GO  TO  900 

750  WRITE (LOUT ,12) 

GO  TO  900 

000  WRITE ( LOUT ,11)  INDEX 
FORMAT  STATEMENTS 

1  FORMAT  (215 ) 

2  FORMAT (55X, 15) 

3  FORMAT  (2014) 

1*  FORMAT  (10X»I5**  IS  IN  M  A  JOR/ MI  N  OR*  ,  2 1  3  > 

5  FORMAT (4H****, 15,*  DOES  NOT  BELONG  TO  ANY  TOPICS*) 

6  FORMAT (4H****,I5»*  BELONGS  TO  MORE  THAN  ONE  TOPIC*) 

7  FORMAT ( 1H1 ,*  THE  FOLLOWING  ARE  THE  MAJOR/MINOR  ASSIGNMENTS  FOR  TH 
IE  FOLLOWING  THEMES*,//) 

8  FORMAT  ( IH1 , *  THE  FOLLOWING  ARE  THE  VARIABLE  ASSIGNMENTS  FOR  THE  F 
10LL0WING  THEMES*,//) 

9  FORMAT (8 (5X,  15)  ) 

10  FORMAT (10X, 15, *  IS  IN  VARI ABLES * ,  ( 1 0  1 5  )  ) 

11  FORMAT (10X, 15,*  IS  IN  MORE  THAN  20  VARIABLES*) 

12  FORMAT ( *  ERROR  IN  INPUT  OECK...MORE  THAN  1000  THEMES  REQUESTED*) 

13  FORMAT (4H****, *  ADDITIONAL  ERROR*,/,*  THEME*, 15,*  IS  ALSO  ASSIGNED 

1  TO  *,215) 


PROGRAM  DTAPE 


Purpose 

This  program  and  its  subroutines  update  the  six  dictionary  files .  Any  file  can  be 
left  unchanged  or  have  specified  entries  changed.  The  first  five  files  can  also  be 
completely  updated  with  a  new  card  deck. 

Method 

DTAPE  consists  of  a  main  calling  program  and  seven  subroutines .  The  calling 
program  reads  the  main  control  card,  which  specifies  if  and  how  a  file  is  to  be  changed. 
The  files  are  then  processed  one  at  a  time.  When  the  first  five  files  are  processed, 
the  calling  program  copies  the  file  on  the  output  tape  if  it  is  to  be  left  unchanged;  reads 
and  writes  the  new  card  deck  on  the  tape  if  it  is  to  be  completely  updated  by  cards;  or 
calls  the  appropriate  file  subroutine  (ONE  through  FIVE)  if  specific  entries  are  to  be 
changed.  When  file  six  is  processed,  subroutine  SIX  is  always  called. 

Subroutine  ONE  performs  all  changes  to  specified  entries  in  file  1,  country 
dictionary.  Additions  and  deletions  of  countries  are  not  allowed,  since  they  would 
affect  the  data  on  the  raw  data  tape.  However,  the  name  of  a  country  and  its  abbreviation 
can  be  corrected. 

File  1  and  the  deck  of  changes  are  organized  numerically  by  country  number.  A  card 
and  a  record  are  read  and  compared.  If  the  card  refers  to  a  smaller  country  number,  it 
is  out  of  order  and  subroutine  ERROR  is  called.  If  they  refer  to  the  same  country 
number,  the  name  and  abbreviation  from  the  card  are  substituted  for  the  record  and 
written  on  the  output  tape.  If  the  card  refers  to  a  larger  country  number,  the  record 
is  written. 

If  a  change  card  requests  anything  but  a  substitution  or  if  an  EOF  is  encountered  on 
the  input  file  before  it  has  occurred  on  the  change  deck,  subroutine  ERROR  is  called. 

When  an  EOF  is  found  on  the  change  deck,  all  remaining  input  records  are  written  on 
the  output  tape. 

Subroutine  TWO  performs  all  changes  to  specified  entries  in  file  2,  theme  dictionary. 
Additions,  deletions  and  substitutions  are  allowed  as  long  as  the  theme  number  is  less  than 
1,600. 


File  2  and  the  deck  of  changes  are  organized  numerically  by  theme  number.  A  card 
and  a  record  are  read  and  compared.  If  the  card  refers  to  a  smaller  theme  number  and 
requests  an  addition,  the  card  is  written  on  the  output  tape;  if  it  does  not  request  an 
addition,  it  is  out  of  order  and  subroutine  ERROR  is  called.  If  the  card  and  record 
refer  to  the  same  theme  number  and  the  card  requests  an  addition,  subroutine  ERROR  is 


called;  if  it  requests  a  substitution,  the  theme  title  on  the  card  is  written;  if  it  requests 
a  deletion,  the  record  is  deleted.  If  the  card  refers  to  a  larger  theme  number,  the 
record  is  written  on  the  output  tape. 

If  a  change  card  attempts  to  modify  or  create  a  theme  larger  than  1599  or  if  an  EOF 
is  encountered  on  the  input  file  (blank  record  precedes  its  EOF)  before  it  has  occurred  in 
the  change  deck,  subroutine  ERROR  is  called.  When  an  EOF  is  found  on  the  change  deck, 
all  remaining  input  records  are  written  on  the  output  tape . 

Subroutine  THREE  performs  all  changes  to  specified  entries  in  file  3,  major/minor 
dictionary.  The  titles  of  the  topics  and  the  themes  assigned  to  them  can  be  changed.  New 
major  or  minor  topics  cannot  be  created,  nor  can  existing  ones  be  deleted.  File  3  is 
organized  numerically  by  major  topic  number  and,  within  each  major  topic,  by  minor 
topic  number,  each  being  followed  by  a  list  of  its  themes  in  numerical  order.  The  deck 
of  changes  is  similarly  ordered. 

A  card  and  record  are  read  and  compared.  If  the  card  refers  to  a  smaller  major  topic 
number,  it  is  out  of  order  and  subroutine  ERROR  is  called.  If  it  refers  to  a  larger  major 
topic  number,  the  major  topic  record  is  written  on  the  output,  and  all  of  its  minor  topics 
and  themes  are  read  and  written.  If  they  refer  to  the  same  major  topic,  its  title  is 
changed,  if  requested,  and  written.  Then  a  comparison  is  made  of  the  minor  topic 
numbers.  If  the  card  change  refers  to  a  smaller  minor  topic,  subroutine  ERROR  is 
called;  if  it  refers  to  a  larger  minor  topic  number,  the  minor  topic  and  its  themes  are 
copied  off  the  input  file.  If  they  refer  to  the  same  minor  topic,  its  title  is  changed,  if 
requested.  The  change  cards  are  then  compared  with  the  list  of  themes  in  the  minor 
topic;  the  additions  are  made  in  the  appropriate  numerical  location  and  deletions  are 
made  when  they  are  located  in  the  list.  If  deletions  cannot  be  found  or  entries  are  out  of 
numerical  order,  subroutine  ERROR  is  called.  Once  all  changes  have  been  made,  the 
minor  topic  title  and  the  number  of  themes  now  assigned  to  it  are  written,  followed  by  a  list 
of  these  theme  numbers. 

If  an  EOF  is  encountered  on  the  input  file  before  it  occurs  on  the  change  deck,  sub¬ 
routine  ERROR  is  called.  When  all  changes  have  been  made,  all  remaining  records 
are  written  on  the  output  tape . 

Subroutine  FOUR  performs  all  changes  to  specified  entries  in  file  4,  issue -variable 
dictionary.  The  titles  of  the  issue -variables  and  the  ranks  and  themes  within  them  can  be 
changed.  Existing  issue-variables  can  be  deleted,  which  creates  an  unused  number,  and 
new  issue-variables  can  be  created  for  any  of  the  unused  numbers  between  1  and  70. 

File  4  is  organized  numerically  by  issue-variable  number  and,  within  each 
issue-variable,  by  rank  of  themes.  The  deck  of  changes  is  similarly  ordered.  This 
subroutine  reads  an  issue -variable  identification  card  and  record.  If  the  card  refers  to  a 
smaller  issue-variable  number,  it  is  out  of  order  and  subroutine  ERROR  is  called,  If 
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it  refers  to  a  larger  is  sue -variable  number,  the  record  is  written,  all  of  its  ranks  and 
themes  are  read  and  written,  and  the  next  issue -variable  identification  record  is  read. 

If  the  card  and  record  refer  to  the  same  issue-variable,  its  title  is  changed,  if 
requested.  If  only  the  title  is  being  changed,  the  new  title  is  written,  and  the  existing 
ranks  and  themes  are  read  and  written. 

If  there  are  rank  and  theme  changes  to  be  made,  the  existing  ones  and  changes  are 
read.  Then  one  at  a  time,  a  record  and  card  entry  are  compared.  The  card  additions  are 
made  in  the  appropriate  rank  order  and  deletions  are  made  when  they  are  located  on  the 
list.  If  deletions  cannot  be  found  or  if  a  card  entry  is  out  of  rank  order,  subroutine 
ERROR  is  called.  Once  all  changes  have  been  made,  the  issue-variable  title  and  the 
number  of  themes  now  assigned  to  it  are  written,  followed  by  a  list  of  the  ranks  and  themes. 

If  an  EOF  is  encountered  on  the  change  deck,  all  remaining  records  on  the  file  are 
copied  onto  the  output  tape.  If  an  EOF  occurs  on  the  input  file  before  it  is  encountered  on 
the  change  deck,  subroutine  ERROR  is  called. 

Subroutine  FIVE  performs  all  changes  to  specified  entries  in  file  5,  lettered  theme 
dictionary.  Additions,  deletions  and  substitutions  of  lettered  themes  are  processed  by 
this  subroutine.  File  5  and  the  deck  of  changes  are  organized  numerically  by  theme 
number  and,  within  each  theme  number,  alphabetically  by  letter. 

A  card  and  record  are  read  and  compared.  If  the  card  refers  to  a  smaller  theme 
number  and  is  an  addition,  it  is  written  on  the  output  tape  and  another  card  is  read; 
but  if  it  is  not  an  addition,  it  is  out  of  order  and  subroutine  ERROR  is  called.  If  the 
card  refers  to  a  larger  theme  number,  the  record  is  written  on  the  output  tape  and  the 
next  record  is  read.  If  the  card  and  record  refer  to  the  same  theme,  their  letters  are 
compared.  If  they  do  not  match,  the  record  is  written  and  the  next  one  processed.  But 
if  they  do  match  and  it  is  an  addition,  subroutine  ERROR  is  called;  if  it  is  a  deletion, 
the  record  is  deleted  and  the  next  record  and  card  are  compared;  if  it  is  a  substitution,  the 
card  title  is  substituted  and  written  on  the  output  tape,  and  the  next  record  and  card  are 
compared. 

When  an  EOF  has  been  encountered  on  the  change  deck,  all  remaining  records  are 
written  on  the  output  tape.  If  an  EOF  is  encountered  on  the  input  tape  and  changes  still 
remain,  the  additions  are  placed  on  the  output  tape ,  but  any  deletions  or  substitutions 
call  subroutine  ERROR. 

Subroutine  SIX  performs  all  operations  on  file  6,  independent  variable  dictionary.  If 
the  file  is  to  be  left  unchanged,  it  is  copied.  If  a  complete  update  is  requested,  a  message 
is  produced  that  the  request  is  unacceptable  and  the  file  is  copied  unchanged.  If  specific 
entries  are  to  be  changed,  a  country's  data  is  read  off  the  input  and  compared  with  a  card 
in  the  change  deck.  If  the  card  refers  to  a  smaller  country  number,  an  error  message 
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is  written  and  the  entire  file  is  left  unchanged.  If  the  card  refers  to  a  larger  country 
number,  the  record  is  written  on  the  output  tape  and  the  next  country’s  data  is  read. 

If  they  refer  to  the  same  country  the  card  entry  is  substituted  for  rhe  record  entry  and 
another  card  is  read. 

If  an  EOF  occurs  on  the  change  deck,  all  remaining  records  are  copied  onto  the 
output  tape.  If  an  EOF  is  encountered  on  the  input  file  before  it  is  found  on  the  change 
deck,  an  error  message  is  produced,  the  changes  are  disregarded,  and  the  entire  file 
is  copied  unchanged. 

Subroutine  ERROR  is  called  whenever  a  deck  of  changes  is  out  of  order  or  is 
incompatible  with  the  above  subroutines.  This  subroutine  erases  all  work  on  a  file, 
rewinds  the  input  and  output  tapes  and  copies  the  file  unchanged  onto  the  output  tape. 

Any  remaining  changes  to  this  file  are  skipped  over. 

Structure  of  the  Output  Tape 

The  six  files  that  are  on  the  output  tape  have  the  same  format  and  structure  as 
the  input  tape.  (For  a  detailed  description  of  the  dictionary  file  structure,  see  the 
users  guide. ) 

Dimensioned  Variables 

There  are  five  dimensioned  variables  that  appear  in  the  calling  program  and  the  seven 
subroutines.  Most  of  them  take  on  different  meanings  depending  on  the  subroutine. 

Their  general  meaning  will  be  discussed  here. 

(1)  NFILE,  dimensioned  6,  contains  a  change  code  for  each  file.  If  NFILE(M)  is 
zero,  file  M  is  to  be  left  unchanged;  if  it  is  1,  file  M  is  to  be  completely  updated  with  cards; 
if  it  Is  2,  specified  entries  are  to  be  changed. 

(2)  INFO,  dimensioned  500,  contains  all  of  the  information  from  a  record.  The 
reader  should  refer  to  the  users  guide  for  a  description  of  a  record  in  each  file. 

(3)  NINFO,  dimensioned  500,  contains  all  of  the  information  from  a  change  card. 

The  reader  should  refer  to  the  users  guide  for  a  description  of  the  format  and  structure 
of  the  change  cards  for  each  file. 

(4)  VDATA,  dimensioned  500  by  2,  is  used  as  temporary  storage  of  the  themes  assigned 
to  the  minor  topic  being  processed  in  subroutine  THREE  (only  the  first  column  is  used) 

or  the  temporary  storage  of  the  ranks  and  themes  assigned  to  the  issue-variable  being 
processed  in  subroutine  FOUR. 
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(5)  NVDATA,  dimensioned  50  by  3,  is  used  as  temporary  storage  of  changes  to 
themes  in  the  minor  topic  or  issue -variable  being  changed.  In  subroutine  THREE,  the 
first  two  columns  of  NVDATA  are  filled  with  a  +  (addition)  or  -  (deletion),  followed  by 
the  theme  number.  In  subroutine  FOUR,  the  three  columns  are  used  to  store  the  rank, 
+  or  -,  and  theme  change. 

Operational  Effects  of  System  Changes 

If  the  format  or  structure  of  the  dictionary  tape  is  changed,  all  the  programs  in  the 
system, especially  this  one,  will  have  to  be  changed.  DTAPE  is  not  affected  by  changes 
in  any  other  program,  but  all  other  programs  depend  upon  its  product,  namely  the 
dictionary  files.  Appendix  A  identifies  how  changes  can  affect  each  of  the  programs 
in  the  system . 


Program  listing 

The  program  and  subroutine  listings  follow. 


oooo  oooooonoo 


PROGRAM  OTAFE 

COMMON  NFILE  (6  )  ,  IN  EC (5  00  )  , NINFO (500),VDATA(500,2),NVOATA(50,3> 

DATA  (PLUS=1H*) , (MINUS=lH-> , <BLANK=1H  ) 

TYPE  INTEGER  V DATA 

LOGICAL  UNIT  OF  THE  INPUT  At.'O  OUTPUT  ARE  SET. .NUMBER  OF  MAJOR  TOPICS 
ANO  VARIABLES ... .READ  WHICH  FiLCS  ARE  TO  iC  CHANGED 

CHECK  ONE  FILE  AT  A  TIME  TO  CEE  HOW  CHANGING  IT 
IF  NOT  CHANGING  THIS  FILE,  COPY  FILE  ONTO  OUTPUT  TAPE 
IF  COMPLETELY  UPDATING  THIS  FILE  WITH  CARDS,  WRITE  CARD  DECK 
ON  THE  OU1PUT TAPE 

LIN=1  $  L OU T  =  2  $INDEX  =  1  SNMAJ=17  SNVAR  =  70  $NDISC=3 
READ  1  ,  (NFILE  (Ml)  ,M=1,6) 

100  IF (NFILE (INDEX) -1)  150,200,300 

150  LU= l 

PR  1 N T  3,1 NDE X 
GO  TO  250 

200  CmLL  SKIPFIlE  (LIN) 

LU  =  60 

print  4, index 

250  REA0(LU,2)  (INFO(M)  ,M=1,10) 

IF(EOF,LU)  500,275 
275  WRITE (LOUT, 2) (INFO (M),M= 1,10) 

IF(LU.EO.GO)  PRINT  5, < INFC(M) ,M=1,10) 

GO  TO  250 
500  ENOFILE  LOUT 
INOEX=  INDEX* 1 
IF  (INOEX.lE.5)  100,600  0 

IF  EDITING  THE  FILE  GO  TO  THE  APPROPRIATE  SUBROUTINE 
OTHERWISE  COPx  file  OR  CARD  DECK  ONTO  OUTPUT  TAPE 

300  GO  TO  (1 0 00 , 20 00 ,3000, 4000,5000 >, INDEX 
1000  CALL  ONE 
I H  CC  X=  2 
GO  TO  100 
2000  CALL  TWO 
I  N  OE  X  =  3 
GO  TO  100 
3000  CALL  THREE 
I  N  OE  X=  4 
GO  TO  100 
4000  CALL  FOUR 
I. JOE X=  5 
GO  TO  100 
5000  CALL  FIVE 
IN  CE X- 6 
6000  CALL  SIX 
C 

C  FORMAT  STATEMENTS 

C 

1  FORMAT (61 U 

2  FORMAT ( ! 0«d> 

3  FORMAT <//,*  FILE*, 15 ,* WAS  NOT  CHANGEO*) 

4  FORMAT  (//, *  FILE*.  15,*  WAS  COMPLETELY  CHANGED  WITH  THESE  CARDS*) 

5  FORMAT (IX, 10A1) 

END 
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SUBROUTINE  ONE 

COMMON  NFIlE (6)  , INFC(5Q0) .NINFO (500  > ,  l/OATA (500,2) , NVOAT A  (50,3) 

OATft (PLUS= 1H ♦ ) , ( MI NUS= 1H- ) , (8LANK=1H  ) 

TYPE  INTEGER  VOATA 

LIN=1  $  LQUT=2  $INOEX=l  SNMAJ=17  $NVAR=7Q  $NOISC=3 
1  F ORMAT (//, *  THE  FOLLOWING  CHANGES  WERE  MADE  TO  FILE*, 15) 

3  FORMAT (I3»2X,A8,A6»A3,57X,A1) 

6  FORMAT (*  SUBSTITUTION...*, 15, A8,A6, A3,*  WAS  ORIGIN ALLY* , 1 5 , A8 , A6 , A 
13) 


THIS  SUBROUTINE  MAKES  SPECIFIED  CHANGES  TO  FILE  1... 
SUBSTITUTIONS  ARE  ALLOWEO. .ADDITIONS  AND  DELETIONS  ARE  NOT 
THEY  PRODUCE  AN  ERROR  AND  THE  FILE  IS  LEFT  UNCHANGED 


PRINT  1, INDEX 

1000  READ (60, 3) < NI NFO (M > , M= 1 ,4) .SIGN 
IF (EOF ,601  1900,1100 
1100  IF (SIGN. EQ. BLANK)  GO  TO  1200 
1150  CALL  ERROR  (INDEX) 

GO  TO  2000 

1200  REA0(LIN,3) (INFO(M) ,M=1,4> 

IF(EOF, LIN)  1150,1300  -v 

;  -  r'  \ 

COMPARE  A  CARD  ANO  RECORD 
1300  IF  (NINFO  <D-  INFO  (1)  >  1150,  1500,1600 

V 

SUBSTITUTION 

1500  PRINT- 6,  ( NINFO (M) ,M-1,4),  (INFO(MM) »  MM=1 , 4) 

WRITE(LOUT ,3) (NINFO (M) ,M=1,4> ,INOEX 

GO  TO  1000  , 

/ 

CARO  HAS  LARGER  COUNTRY  NUMBER. .. WRI TE  RECORD 

1600  WRITE (LOUT, 3) (INFG(M) ,M=1,4)  ,  INDEX 
GO  TO  1200 

EOF  ON  CHANGE  OECK,. WRITE  REMAINING  FILE  ENTRIES 

1900  RE  AO (LIN, 3)  (INFO(M) ,M=1,4) 

IF(EOF.LIN)  1999,1950 
1950  WRITE (LOUT, 3  I ( INFO ( M) , M=1 , 4) .INDEX 
GO  TO  1900 

1999  ENOFILE  LOUT 

2000  RETURN 


o  o  o  o 


SUBROUTINE  TWO 

COMMON  NFIlE (6)  , INFO (5  00) ,  MNFO  (5  00) .VOATA (50  0,2) ,NVOAT A (5  0, 3) 
OAT4(PLU5=lH+) , (MINUS=1H-) , (BlANK=1H  ) 

TYPE  INTEGER  YOATA 

Cl N= 1  S  L  CU  T  =  2  SINCE X  =2  SNMAJ=17  $NVAR=70  $N0ISC  =  3 
i  F ORMAT { //,  *  THE  FOLLOWING  CHANGES  WERE  MADE  TO  FILE*, 15) 

6  FORMAT!*  SUBSTITUTION. ..*,15, 6Ac,*  WAS  ORIGINALLY *, 15 , 4 A6 ) 

7  FORMAT  (I5,6At*,26X»Al) 

10  FORMAT!*  ADDED*, 15, 6A3,*  BEFORE  RECORD  *,I5,4A8) 

12  FORMAT!*  OEL E TE O * , 1 5 , 6 A8) 


THIS  SUBROUTINE  MAKES  SPECIFIED  CHANGES  TO  FILE  2... 

ONE  CAN  SUBSTITUTE,  ADO  OR  DELETE  THEMES  AS  LONG  AS  THEY 
ARE  NUMBERED  LESS  THAN  1600 


PRINT  1, INDEX 
2000  R£AO!60,7) (NlNF0!M),M=l,7)  ,SIGN 
IF1EOF, 60)2550, 2100 
210  0  IF  (NINFO!l) .LE.1599)  2200,2325 
2200  REAO(LIN,7) IINFOIM) ,M=1,7) 

2250  IFUNFOm.EO.O)  GO  TO  2325 

COMPARE  A  CARD  ANO  RECORO 

IF  ININFO  !1 )-lNFO!l ))  2300, 2400,2500 

CARO  FOR  SMALLER  THEME  NO. .ERROR  IF  NOT  AQQ^OTHERWISE  ADO  CARO 

2300  IF ISIGN. EO.PLUS)  GO  TO  2350 
2325  CALL  E  RR OR ( I NCE  X ) 

GO  TO  3000 

2350  PRINT  10 , !NINFO(M) ,M  =  1,7) , (INFO IMM) » MM  =  1 , 5 ) 

WRITE ( LOUT , 7 ) (NINFO(M) ,Msf,7) .INDEX 
RE  AO  (60 , 7)  (MNFC(M)  ,H=1,7>  .SIGN 
IF  (EOF, 60)  2900, 2375 
2375  IF(NINFO(l) .LE.1599) 2250,2325 

IF  SAME  THEME  NO  THEN.... 

IF  AOOITION,  ERROR 
IF  OElETION,  OELETE 
IF  BLANK,  SUBSTITUTE 

2400  IF (SIGN. EO.PLUS)  GO  TO  2325 
2450  IF (SIGN. EQ.BLANK)2455, 2475 

2455  PRINT  6,  (  MNFO  (  M)  ,  M=  1, 7)  ,  (INFC(MM)  ,  MM=  1 , 5) 

WRITE (LOUT, 7 ) (NINFO(M) ,M=1 , 7 > , INDEX 
GO  TO  2000 

2475  PRINT  12 , ( NI HFO ( M) ,M=1 ,7) 

GO  TO  2000 


SUBROUTINE  THREE 

COMHON  NFiLL (61  , INFO <5 00) , NINFO (50  0  ) , 7 0 A T A ( 500 . 2 > , NVD AT A <50, 3 > 
DATA  (PLUS= 1H+ )  ,  ( MX  NU3- 1H- )  ,  ( 9LANK=1H  ) 

TYPE  INTEGER  70ATa 
TYPE  INTEGER  PLUS 

LI  N  =  1  S  LOUT=2  £INOEX=3  JNHAJ=17  *N7AR=70  $NOISC=3 

1  FORMAT!//,*  THE  FOLLOWING  CHANGES  WERE  MADE  TO  FILE*,I5» 

2  FORMAT  ( 1  Q  A  H)  ’ 

13  FORMAT (15, 15,11 ,14, 6A3) 

14  FORMAT (I5«6A6*4X,I3«15X,I1> 

16  FORMAT  (2014) 

23  FORMAT ( *  THEME*. 15,*  ADOED  TO  *,215) 

27  FORMAT (16<  A1 , 14) ) 

28  FORMAT ( *  THEME*, 15,*  WAS  DELETED  FROM  M A JOR/MINOR* , 2 1 5 > 

30  FORMAT (15) 

55  FORMAT  (*  TITLE  CHANGEO  FOR  MAJOR*, 15,*  TO*,6A8) 

56  FORMAT!*  TITLE  CHANGED  FOR  MINOR*, 15,*  T0*,6A8> 


THIS  SUBROUTINE  MAKES  SPECIFIED  CHANGES  TO  FILE  3... 

TITLES  OF  MAJOR  ANO  MINOR  TOPICS  CAN  BE  CHANGED  AND  THEMES  ASSIGNED 
TO  THEM  CAN  BE  CHANGED..  NEW  TOPICS  CAN  NOT  BE  CREATED 
OR  OLD  TOPICS  CELETEO 


PRINT  1, INDEX 
3000  NC OUNT  =  0 

READ (LIN, 14)  (INFO ( M » ,M  =  1,7) ,  NMIN 
IF (EOF ,LINI  3900,3050 
3050  RE  AD (6 0,13) (NINFO (Ml ,M  =  1,10> 

IF (EOF ,60) 3950, 3100 

3100  Ir  (MNFO(l  )  -  I N  F  0  (1  I  )  3200,3400,3250 
3200  CALL  E  RROR (INDEX) 

GO  TO  4000 

3250  WRITE ( LOUT.l 4) (INFO(M) ,M=1 ,7) ,NMIN, INDEX 
KK  =  1 

3255  OD  3275  K=  KK ♦ NMIN 

READ  (LIN, 14)  (INFO  CM  I  ,M  =  1 , 7 )  , NTHEME 

WRITE (LOUT  , 1  A)  ( I NE  0 ( M)  ,  M  =  1 , 7)  , NTHEME, INDEX 

RE  AD (L IN, 1 5)  (  7 0  A  T  A  (M  ,1  )  , M= 1 , NTHfc ME ) 

3275  WR  I  TE ( L  OUT ,18)  ( V  DA  TA ( M , 1 ) , 1 .NTHEME) 

RE  AO  (LIN, 14)  (INFO(M) ,M  =  1,7) , NMIN 
IF (EOE ,LIN) 3200 , 31 OC 

SAME  MAJOR  TOPIC. .TITLE  CHANGE 

340  0  IF  (MNFOI2)  .LE.O)  3425,3450 
3425  OD  3430  M-5,10 
MM  =  M -  3 

3430  INFC(MM) =NINFO(M) 

PRINT  55,  (INF O(K) , K=l. 7J 
GO  TO  3050 


non  ooooo  o  n  o  o  n  o  ooo 


SAME  MAJOR  OUT  NO  TITLE  CHANGE 

3450  NVAR=I NFO ( 1 )  , 

NC0UNT=NC0UNT*1 

WRITE  <  LOUT  *  1 4  >  ( INFO ( Mi , M  =  1 , 7 ) , NM IN, I NOE  X 
3455  REAO (L IN « 14) (INFO(M) ,M=1,7) .NTHEME 


COMPARE  MINOR  TOPICS 
IF(NINFO(2)-INFO(l> ) 3200,3500,3600 

SAME  MINOR,  CHANGE  TITLE  IF  REQUESTED. . RE  A D  EXISTING  THEMES  IN  MINOR 


REWIND  NDISC 

IF(NINFO(3).N£.l)  GO  TO  3505 

OO  3501  M=  5, 10 

MM=M“3 

INFO(MM)  =  MNFO(M) 

PRINT  56, (INFO(M)»M=l,7) 

MT  HE  ME  =NTHEM£ 

RE  AO (L IN , 1 6 )  ( VDATA (M,l I ,M=1, NTHEME)  . 
MM=NINFO ( 4 )  ' 


IF  CORRECTIONS  ARE  TO  BE  MADE  RF A0  THEM... 

IF  NOT  WRITE  THIS  MINOR  ON  THE  OUTPUT  TAPE  AND  PROCESS  NEXT  CARO 
ANO  RECORO 


IF(MM.EQ.O)  3510,3520 

0  WRITE  (L0tlT,14)  (INFO  (M)  ,  M=  1 , 7 )  ,N  T  HEME ,  I  NOEX 
WRITE (LOUT, 18) ( V DATA (M , 1 ) , M=1 , NTHEME  I 
GO  TO  3548 


MAKE  APPROPRIATE  CORRECTIONS  TO  THIS  MINOR  TOPIC 
/  •  - 
352  0  RE  AD (6  0,27 ) < (NVOAT A ( M, N I , N= 1 , 2)  ,M  =  1,MM> 

MCQUNT  =1 
00  3545  M=  t,  MM 

3525  IF (MCOUNT.GT. NTHEME)  GO  TO  3530 

IF (NVDATA(M,2) -VOATA (MCOUNT, 1 ) 13530,3535,3540 

3530  IF (NVDATA (M, 1 ) . EQ.PLUS I  3531,3200 

3531  WRITE(NOISC,3Q)NVOATA(M,2) 

PRINT  23, NVOAT A (M,2) ,NINFO(l ) ,INFO(ll 
MTHEME  =  MTHEME*-1 
GO  TO  3545 

3535  IF (NV0AT6(M, 1) .EQ.PLUS)  GO  TO  3200 

PRINT  2 8, VO AT  A (MCOUNT, 1 ) , NVAR.I NFO ( 1 ) 

MCOUNT  =MCGUN T* 1  $MTHEME  =  MTHEMt-l  $  GO  TO  3545 
3540  WRITE ( NOISC, 30 )  VO A T A ( MCOUNT  ,  t ) 

MCOUNT  =MCUUNT ♦!  $GO  TO  3525 
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3545  CONTINUE 


WRITE  REMAINING  C(jK';FCTIOMS  AETtft  CORRECTIONS  HAVE  BEEN  MAOE  •  ♦ 

WRITE  MINOR  TOPIC  TITLE  AMO  THE  NEW  LIST  OF  THEMES. .PROCESS  NEXT  MINOR 

IF (MCCUNT.LT . NT HtME) 3546,3540 

3546  00  354  7  K-MC CUNT, NT  HE  HE 

3547  WRITE! NO  I j  C , 301  V0ATA(K,1) 

3549  EULlF  ILt  NDISC 

RE  WING  NOISE 

WRITE  U  OUT,  14)  CINFO(K)  ,  <  =  1,  71,  MTHrME,  INDEX 
RE  AO(NOISC,  .50  >  (  V3ATA  (K,  1»  ,K=  l,MTHF  ME» 

WRITE  <  LCUi  , 1 6)  ( VGA  TA  M ,1 ) , M=1,MTHE ME ) 

3548  NCOUNT  =NCOUNT+l 

IF (NCCUNT . G^.NMINI30Q0,3550 
355  0  READ  (60, 13)  (NlNFO(M) ,  M  - 1 , 10) 

IF (EOF ,60)  3955,3555 
3555  RE  A  0  <  L  I  N  « 14)  (INFO(M) «  M  =  1 , 7  ) ,N THEME 
IF (EOF  ,  LIM  3  300,3556 
35  56  IF  (NINFOd  )-N  VAR)  3  300, 3458, 3600 

CARD  REFERS  TO  LATER  MINOR  T OPI C  .  . . WR I TE  THIS  MINOR  AS  IS 

3  60  0  WRITE (LOUT, 14)  (INFO (Ml  , H  =  1 , 7 ) , NT  HEME , I NOEX 
REAO(LlN.lo)  (VCATA  (M,l  )  ,M=1,N THEME) 

WRITE(LOUT,18) (VJATA(M,1),M=1,NTHEME) 

NCOUNT =NCCUNT*1 
IF (NCOUNT .Lfc . UMI N )  3555,3557 
3557  NCOUNT  =0- 

READ (LIN, 14) (INFO(M) ,M=1,7),NMIN 
IF(EOF.LIN)  3200,3100 

EOF  ON  CHANGE  CECK.. WRITE  REMAINING  INPUT  ENTRIES 

3949  WRIT E ( LOUT, 14)  (INFO (Ml  ,M=1,7),NT HEME, INDEX 
GO  TO  3955 

3950  WRITE(LOUT,l4) ( I NE 0 ( M) , M= 1 , 7 ) , NM IN , I NDE X 
3  955  RE  A Q  <  L I N , 2 )  ( I  NEC (M ) , M= 1 , 10 ) 

IF(E0F,LlN> 3910,3960 
396  0  WRITE ( LOUT ,2 )  ( I  NFC (M » , M= l ,  1 0 > 

GO  TO  3  955 

3900  RE  A  f)  (60 , 13)  <NlNFO(M),M=l,iO) 

IF (EOF ,60)3910, 3200 
3910  ENCFItE  LOUT 
4000  RETURN 


ooo  ooo  ooo  o  o  o  ooo 


SUBROUTINE  FOUR 

COMMON  NFILE (6 ) , INFO (500),hINFO(500),VOATA(5QQ,2),NVOATA{50,3) 
OATA (PLUS= 1H* l , ( MI NUS= 1H- I , (0LANK=1H  > 

TYPE  INTEGER  VOATA.PLUS 

LI N=1  S  L0UT=2  SINDEX=4  $NMAJ=17  $NVAR=70  JN0ISC=3 

1  F0RMAT(//.*  THE  FOLLOWING  CHANGES  WERE  MAOE  TO  FILE*, 15) 

2  FORMAT ( *  VARIABLE* , 15, *  WAS  GIVEN  A  NEW  RANK/THE ME*, 2 15) 

3  FORMAT ( *  VARIABLE*, 15, *  WAS  GIVEN  A  NEW  TITLE*, 6A8I 

14  FORMAT (I5,6A8«4X,I3,19X,Il) 

15  FORMAT (2014) 

16  FORMAT (15,11  ,I3,6A8) 

17  FORMAT  (8(15, Ai, 14) ) 

18  FORMAT (8 (215)  ) 

20  format  (*  variable*, 15, *  rank/theme  was  deleted*, 215) 

21  FORMAT (215 ) 


THIS  subroutine  MAKES  specified  CHANGES  TO  FILE  4 


PRINT  1, INDEX 

4000  REAO(60,16) (NINFO(M) ,  M  =  1 , 9 ) 

IF(EOF, 60)4997, 4050 

4050  RE  AD (L IN , 1 4 )  ( IN FO < M ) , M  =  1 , 7 ) , N THE  ME 
IF(EOF.LIN)  4200,4100 

COMPARE  A  CARO  AND  RECORD  FOR  VARIABLE  NUMBER 

4100  IF(NINF0(1)-INF0(1>)  4200,4400,4300 

CARO  IS.  OUT  OF  OROER 

4200  CALL  ERROR (I NCEX) 

GO  TO  5000 

CARO  REFERS  TO  LARGER  VAR  NO. .COPY  ENTIRE  VARIABLE  ONTO  OUTPUT  TAPE 

4300  WRITE(L0UT,14>  ( I NFO ( M ) , M= l , 7  I , N THEME , I  NOE  X 

READ  (LIN  ,18) ((VOATA(M.N) ,N=1,2) ,M=1,NTHEME> 

WRITE (LOUT, 18) ( <VOATA(M,N) ,M=1,2) ,M=1,NTHEME) 

GO  TO  4050 

SAME  VARIABLE. .CHANGE  TITLE  IF  REQUESTED 

4400  IF (NINFO (2) . EQ.l )  4450,4500 
4450  OO  4475  M=2,7 
MM=M*2 

4475  lNFO(M)=NINFO(MM) 

PRINT  3, (INFO(M) ,M=1,7) 

4500  MM=NINFO(3) 


ooo  oooo  ooo 


IF  NO  CHANGES  ARE  TC  BE  HA  CE  ,  WRITE  EXISTING  VAR  ON  OUTPUT  TAPE 
OTHERWISE  Rt  A J  EXISTING  RANKS/THEMES  AND  CHANGES 

IF { MM  .EQ.  C)  4510,4525 
4510  READ(bO,  16) (NINFO(M)  ,M=1,9> 

IF(EOF,60) 449a, 4300 

452  5  RE  AO  (L  IN,  lo)  (  <  V'JAT  A  (  M,  N  )  ,  N=  1 , 2)  ,  M=  1 ,  N  T  HEME  ) 

READ  (60,1  7)  ( (NV3«TA(M,N),N=1,3) ,M=1,MM) 

MT  HE  ME  =  N  THEME  3>Rc.WIN3  NDISC  $MM  =  1 

PLACE  ENTRY  AUDITIONS  IN  APPROPRIATE  RANK  LOCATIONS  OR  DELETE  THEME 
WHEN  ENTRItS  MATCH 

00  4800  M= 1  *  NTH EMC 

460  0  IFtNVDATAt  MM, 1 > -VO A T6 ( M , l >>  4650 , 4700,4750 

465  0  IF (N VO  AT  A (MM, 2) . EO . PLUS )  4 660 , 42 C 0 

4660  WRITE! NOISC, 211  NV O ATA ( MM , 1 ) , NVC AT A ( MM , 3 ) 

PRINT  2, NINE  O < 1 1  ,NVG AT  A (MM, 1 ) ,N VDATA (MM, 3) 

MTHEME=MTHEME+1 
4670  MM  =  MM* 1 

IF (MM.GT .NINFO(3))4e50«4600 
4700  IF (NVDATA(MM,2) .EQ.PLUS)  GO  TO  4725 

IF (N VO  AT  A (MM, 3 ) .EO. V0ATA  Cl, 2  ) 14  715, 475  0 
4715  PRINT  20 ,NINFO < 1 ) , NVDATA (MM, 1 ) ,  N V  DA T A ( MM  ,  3  ) 

MTHEME=MTHEME-1  $MM=MM+1 
IF (MM. GT.NINFO (3) > 4049, 4800 
4725  IF (NVOATA(MM,3I-VOAT A(M,2) > 4660,4200,4750 
475  Q  WRITE  (NOIGC-,21)  (  VO  AT  A  (  M,N  >  ,  N  =  1,  2  > 

4800  CONTINUE 

4805  IF(MM.LE.NINFO(3))4610,4900 

4810  IF (N VO  AT  A (MM ,1),GE.V0ATA(NTH£M£, 1)14315, 4200 
4815  IF ( NVO AT A( MM , 2 >  .NE.PLUS)  GO  TO  4200 

WRITE  (  NO  ISC • 21 ) N VO A  T  A ( MM , 1) , N VO„T A ( MM, 3) 

PRINT  2 , NINE  O ( 1) ,N  VDATA (MM, 1 )  ,N VDATA (MM, 3) 

VDATAINTHEME ,1) =NV  O  A  T  A (MM, 1) 

MM  =  MM+1  S.MT HEME  =M  THEME  *1  1GO  TO  4805 

4849  M=  M  + 1 

4850  OO  4875  KX=M,NTHFME 

48  75  WRITE ( NCI  SC, 21 )  (VUATA(KX,N)  ,N=l,2) 

WRITE  NEWLY  CREATED  VARIAOLE  CN  OUTPUT 

4900  ENOFILE  NUISC 
REWIND  NDIoC 

WRITE (LOUT, 14) (INFO(M) , M= l , 7 ) ,MTHEME, INDEX 
PEA0(N0ISC,21 ) ( (VO ATA ( L ,N> ,N=l, 2) ,L= 1, MTHEME1 
WRITE(L0UT,18) (( VDATA (L,N) ,N=1,2) ,L=1,MTHEME) 

GO  TO  4000 


EOF  ON  CHANGE  OECK,  WRITE  REMAINING  FILE  ENTRIES  ON  OUTPUT 

4998  WRITE (LOUT, 14) (INFO(M) , Mr 1 , 7 ) , NT HEME , I NDEX 
RE AO (L IN  *1 d)  (<V0ATA(M,N),N=1,2) , M*1,NTHEME> 

WRITE (LOUT.18) <<VOATA(M,N),N=1.2),M=l,NTHEMEI 

4997  RE  AO (L I N , 14)  < INF0< M) , M=1 , 7 ) , NTHEME , INDEX 

IF(E0F*LIN)4999»4998 

4999  ENDFILE  LOUT 

5000  RETURN 


o  o  o  o 


SUBROUTINE  FIVE 

COMMON  NFILt  (6)  , INF0(5  00) ,NI  NFO  (  50 0 »  ,V  DATA ( 500 , 2 > , NVO AT  A  C5 0 , 3 ) 
DATA(PLU3-1H«-),(M1NUS=1H-),(0LANK  =  1M  ) 

T V PE  INTEGER  VDATA 
TYPE  REAL  MINUS 

LI  N  =  1  S  L  0  U  T  =  2  S.IND£X  =  5  $NMAJ=17  SNVAR=70  $NDISC=3 
1  FORMAT!//,*  THE  FOLLOWING  CHANGES  WERE  MADE  TO  FIlE*,I5I 
6  FORMAT!*  SUBSTITUTION*, 15, A1.6A6,*  WAS  OR IGINAL L Y * , I  5 , A  1 , 3  A  3 ) 
10  FORMAT!*  ADDED*, 15, A 1, 6 A8  ,  *  BEFORE  RECORD  * , 1 5 , A 1 , 3  A  8 > 

12  FORMAT!*  DEL  FT E 0  * , 1 5 , A  1 , 6 A  8 ) 

22  FORMAT (15, A1 ,6AB,25X,A1) 


THIS  SUBROUTINE  MAKES  SPECIFIED  CHANGES  TO  FILE  5 
SUBSTI TUTLS ,AODS  ANO  DELETES  THEMES  WITH  LETTERS 


PRINT  1, INDEX 
50Q0  RE  AD (GO, 22  1 (NI NFO! Ml ,M  =  1, d ), SIGN 
IF (EOF ,601 5550,5100 
5100  READ (LIN, 22) ( I NFO ( M) , M=1 , 3 ) 

IF(EOF.LIN)  5958,5200 

COMPARE  A  CARO  AND  RECORD 

520  0  IF  (NINFO (1 > -INFO (II >5300,540  0,5  500 

CARO  REFERS  TO  SMALLER  T  HE  ME  NO.  ...ADD  IF  ADOITION,  OTHERWISE  ERROR 

5300  IF  (SIGN. EQ.PLUSI5350, 5460 

5350  PRINT  10,  ( NI NFO ( M ) , M  =  1 ,  i)  , ( I NFO ( MM ) , MM  =  1 , 5) 

WRITE!  LOUT  ,22)  (NINFC(M)  ,M  =  1  ,fl)  ,  INDEX 
GO  TO  5600- 

SAME  THEME  NO.  BUT  DIFFERENT  LE T T ERS . . RE  CORO  IS  WRITTEN 
SAME  LETTER  AS  WELL,  PERFOPM  SUBSTITUTION  OR  DELETION 

5400  IF(NINF0(2).EG.INF0(2) )  5450,5500 
5450  IF  (SIGN. EO .P LUS >  546  0 , 5470 
5460  CALL  E  RROR  < I  NOE  X ) 

GO  TO  6000 

5470  IF(SIGN.EO. MINUS)  PRINT  12, (NINFO(M) »M  =  1, $  > 

IF (SIGN. EO, MINUS)  GO  TO  5300 

IF  (SIGN. EO. BLANK )  PRINT  6 , ( NI NF 0 ( M ) , M= 1 , 8 > , ( I NF 0 ( MM > , MM  =  1 , 5) 

WRITE (LOUT ,22) (NINFC (M) ,M=1, 3) , INOEX 
GO  TO  5000 

CARO  REFERS  TO  LARGER  THEME  NO... WRITE  RECORD 

5500  WRITE (LOUT, 221 (INFO! M) ,M= 1,6) .INDEX 
GD  TO  5100 

560  0  Rr:  AO  (6  0,22  )  (NI  NFO  (M)  ,M  =  1,3)  .SIGN 


IF  (EOF  *601  5900,5200 

EOF  ON  CHANGE  OECK,  COPY  REMAINING  RECOROS 

5900  WRITE (LOUT, 22) (INFO (M> , M=1 , 8 > , I NDEX 
5950  REA0(LIN,22  )( INFO  I  Ml , H=1 , fl > 

IF (EOF, LIN )  5999,5900 

EOF  ON  INPUT  TAPE,  COPY  REMAINING  ADDITIONS  FROM  CARO  DECK 
IF  OECK  INCLUDES  DELETIONS  OR  SUBSTITUTIONS,  ERROR  IS  CALLED 

5998  IF (SIGN. EQ. PLUS)  WRITE (LOUT, 2 2) ( NINFO( M> ,M=1 , 8) , I NOEX 
IF (SIGN. NE. PLUS)  GO  TO  5460 

RE  AO (6 0,22) (NINFO(M)  ,M=1,8) .SIGN 
IF(EOF, 60)5999,5998 

5999  ENOFILE  LOUT 

6000  RETURN 


SUBROUTINE  SIX 

COMHO.'t  NR  I  lI  <‘o  I  ,  INFO  (5  0  0  I  ,  NINFO  (50Q),VDATA(500,21,NVOATA(50,3) 

TYPE  INTEGER  VOATA 

TYPE  REAL  NINFO, INFC.NC 

OATA  (PLUS-  lMt  )  ,  (  MINUS=  1H  -  )  ,  <9LANK=1H  ) 

LIN=1  $  LOUT-2  SIhOEX=o  SN.MAJ=17  5NVAR=70  SN0ISC=3 

1  FORMAT <//,♦  THE  FOLLOWING  CHANGES  WERE  MADE  TO  FILE*, 15) 

2  FORMAT ( *  COUNTRY*, F5. 0 ,*  ENTRY* , F5 . 0 , *  WAS  CHANGED  TO*  F1Q.3,*  WAS 
1* *  FI  0 .31 

3  FORMAT!//,*  FILE*, 15,*  WAS  NOT  CHANGEO*) 

23  FORMAT!*  F I L E *  ,  1 5 , * H AU  A  CAkG  OUT  OF  ORDER  AND  THE  FILE  WAS  LEFT  U 
1NCHANGEO. .*,/.*  » . . .0  IS  REGARD  CORRECTIONS  ABOVE*) 

24  FORMAT!*  FILF  6  CAN  NOT  BE  UPDATED  COMPLETELY  WITH  CAROS*) 

25  FORMAT  (F4. U , 34F3. 1 ,/,( 12F10.  1 )  ) 

26  FORMAT  (  ?Ff>  .  G  » F 20 . 6 ) 


THIS  SUBROUTINE  MAKES  ALL  CHANG F  S  TO  FILE  6... 

ONE  CAN  LEAVE  THIS  FILE  UNCHANGED  OR  MAKE  SPECIFIED  CHANGES 
ONE  CAN  NUT  COMPLETELY  UPDATE  THIS  FILE  WITH  CARDS 


6  00  0  IF  (NFILE (6) -1)61 99,615 0,62  99 

PRINT  MESSAGE  THAT  FILE  6  CANT  BE  COMPLETELY  UPDATED  WITH  CARDS 
6150  PRINT  24 

NO  CHANGES  TO  THIS  FILE. ..COPY  FILE 

6199  PRINT  3, INDEX 

6200  READ(LIN,25) (INFQ(m) ,m=1, 104) 

IF!EOF,LIN)700u ,6250 

6250  WRITE (LOUT ,25) (INFO ( H) ,M=1, 104) 

GO  TO  6200 

PERFORM  SPECIFIED  CHANGES 

6299  PRINT  1, INDEX 

6300  NO  =  l . 

6350  READ(60,26) (NINFO(M) , M  =  1 » 3 ) 

IF (EOF ,60) 6900 ,6400 
6400  READ (LIN,2  5)  ( I NFQ ( M ) , M  =  1 , 1 0 4  I 
IF(EDF,LIN)  6500,6450 

COMPARE  A  CARD  AND  FECORO 

6450  IF  (MNFO(l)-NO)  6500,6550,6600 

CARO  OUT  OF  OROER..STOP  CHANGING  ENTRIES  AND  COPY  FILE  AS  IS 

6  50  0  RE W I  NO  LIN 


O  o  o 


SUBKOUTI NE  ERROR  (INDEX) 

COMMON  IIFlLb  (C> , INFC  (5  00  > ,  NINF(j  (500I,VOATA(50G,?>,NVOATA(50,3> 

DATA  <PLUS=iH+>  ,  (MINUS=  1H-)  ,  (OlANK=1H  > 

TYPE  INTEGER  00 AT  A 

LIN=1  SLOUT  ~2  $NMA J=  17  Jfi  V  AR  =  70  tNDISC=3 
2  FORMAT { 1 0  A  a  » 

23  FORM/,:  (»  FILE*,  15, *HAJ  A  CARD  OUT  CT  ORDER  AND  Twr  FILE  WAS  LEFT  U 
IN CHANGED ..*,/»*  . ...  01 SREGARO  CORRECTIONS  ABOVE’) 


THIS  SUBROUTINE  IS  CALLED  WHENEVER  THERE  IS  A  CARO  OUT  OF  ORDER 
....IT  ERASES  ALL  THE  CHANGES  TO  THE  FILE  AND  COPIES  IT  AS  IT  IS 


PRINT  23, INDEX 

REWIND  INPUT  AND  OUTPUT,  SKIP  TO  FILE  WHERE  CARD  WAS  OUT  OF  ORDER 
COPY  ENTIRE  FILE  AS  IS 

REWIND  LIN 
REWIND  LOUT 
NS  KI P= I NDEX-  1 
DO  10  1  =  1, NS  KI P 
CALL  SKIPF1LE  (LIN) 

10  CALL  SKIPFILE  (LOUT) 

15  READ(LI.N,2)  (INFG(M),M=1,10> 

IF(EOF , LIN >50,25 

25  WRITE(LOUT ,2) (INFQ(M),M=1,10) 

GO  TO  15 
50  E, NOFILE  LOUT 

SKIP  OVER  ANY  REMAINING  CHANGES  FOR  THIS  FILE 

75  READ  2, (NINFO(M) ,M=1,10) 

IF ( E  OF , 6  0 )  10  0,75 
100  RETURN 


PROGRAM  CODEBK 


Purpose 


The  purpose  of  this  program  is  to  produce  a  codebook. 

Method 

The  program  reads  the  first  five  files  of  the  dictionary  tape  and  lists  them  in  a 
readable  form.  As  the  theme  and  issue-variable  dictionaries  are  read,  the  array 
JCODE  is  used  to  distinguish  between  non-existent  theme  numbers,  existing  theme 
numbers  not  assigned  to  an  issue -variable,  and  existing  theme  numbers  that  are 
assigned.  A  list  of  existing  themes  not  in  an  issue -variable  and  non-existent  theme 
numbers  is  then  produced  from  the  entries  in  JCODE. 

Dimensioned  Variables 

Program  CODEBK  contains  five  dimensioned  variables: 

(1)  NACON,  dimensioned  4,  contains  the  country  number,  the  country  name 
(in  2  fields),  and  its  international  abbreviation. 

(2)  TITLE,  dimensioned  6,  contains  the  title  of  the  theme,  major  topic,  minor 
topic  or  issue -variable  currently  being  processed. 

(3)  JCODE  is  dimensioned  2000,  each  field  representing  a  theme  number  (currently 
1599  would  be  required).  JCODE(K)  can  take  on  three  values: 

0  if  K  is  a  non-existent  theme 

1  if  K  exists  and  is  not  in  an  issue -variable 

2  if  K  exists  and  is  in  an  issue -variable. 

(4)  NAME,  a  permanent  matrix  of  theme  names  dimensioned  2000  by  6,  stores  a 
6  field  title  for  each  theme.  Unlike  JCODE,  NAME(K, . . .)  contains  the  Kth  theme  title 
that  exists . 

(5)  THEMES,  a  temporary  matrix  of  themes  within  a  minor  topic  or  issue-variable, 
is  dimensioned  200  by  2,  since  no  minor  topic  or  issue -variable  currently  contains  more 
than  200  themes.  When  the  themes  in  minor  topics  are  being  stored,  it  contains  the  list 
of  theme  numbers  in  the  order  in  which  they  appear  in  the  dictionary.  When  the  themes 
in  issue -variables  are  being  stored,  it  contains  the  rank  and  number  of  each  theme  in 
the  order  in  which  they  are  read  off  the  dictionary  tape. 


erational  Effects  of  Svstem  Changes 


[Hire 


NMAJ  must  equal  the  maximum  major  topic  number. 

NVAR  must  equal  the  maximum  issue -variable  number. 

NTHEME  must  equal  the  maximum  theme  number. 
jCODE  must  be  dimensioned  at  least  as  large  as  NTHEME. 

NAME  should  be  dimensioned  as  large  as  NTHEME  by  6. 

THEMES  must  be  dimensioned  at  least  twice  as  large  as  the  maximum 
number  of  themes  in  a  minor  topic  or  issue-variable. 


Program  Listing 

The  listing  of  program  CODEBK  follows. 


c 

c 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 


PROGRAM  CODORK  ,  ,  ,> 

DIMENSION  NAC9N  (  4  ) ,  f!  TLL- (  6  ) »  JJOUO  (  2'JOO  )  >  <AME  <  20  0 ,  6  )  ,  THESES  1 20  0 . 2  ) 
TYPfc  INTEGER  T  1 1 Lfc , THEMES 


INITIALIZE  THE  NUMHfcR  Of  MAJOR  IQPICS,  NUMBER  OK  TH£VES  AN0  Tnt  NUMBER 
OF  VARlAUUtS,  LOGICAL  UMT  OF  IupuT  AND  OUTPUT.... 

L  1  N  s  1  SLOMT  s  61  SU.'1AJ  =  l7  4N  F  HEMEb  1  599  iN  V  A  K  =  7  j 
DO  50  I  si  |  NT  HEME 
50  JCODE  (  I  )  =  J 


READ  AND  WRITE  COUNTRY  DICTIONARY 


WR 1 TE ( LOUT , 1 ) 

10 C  READ<LlN,2 ) (NACON(M) ,  M*1  #  4  > 

I F  ( EOF , L IN ) 2ui » 15G  -  '  „ 

15(1  UR  I  TF:  (LOUT,  3)  (NACUM<M),M  =  1.a> 

GO  TO  10 1! 

i  •  / 

READ  AND  WRITE  THE  I  HEME  DICTIONARY 

\  ,,  / 

2CG  WR  I  jE ( LOUT »  A )  .  ^  /  ~ 

NCOUNT  =  0  l  • 

DO  350  INDEX*!, NTHEME  /* 

READ  (  L  I  N  i  5  )  NO ,  I  T  I  TlE  (  M  >,  ,1  =  1 , 6  > 

JCODE ( NO >=1  /  i  i  \  . 

IF<NO)375,375, 250  X  \  f  j  \ 

250  DO  30  0  J?l,6  X1"  v 

300  HAMEINO,  J)*TITU6<J»  - -- 

WRITE (LOUT, 6) NO, < NAME < NQ, J) , J*!, b)/ 
35p  HCOUNT  =  NC:OtJNT*l  / 

If (NCOUNT , GT  ,20  30)  GO  TO  10CU  / 

375  CALL  SK1PF  ILE  (LIN)  • 

URITE(LOUt,  7  > NCOUNT  ".:.l 


/ 

■  / 

/ 

/ 

/ 

/ 


\ 

I 

i 


READ  AND  WRITE  MAJOR  ANU  MINOR  DICTIONARY 


DO  500  1*1, MMA J 

READdlN,  8)  MAJOR,  (  T  I  TLE  <  J  ) ,  J*1 »  6  ) ,  NM  l  N 
WRITE (LOUT, 9)  MAJOR, (TITLE (J),J=1#6) 

DO  450  I  1 = 1 , N M  I  N 

READ(LIN,10)(TITLE(J),D=1,6),NO 
WHITE (LOUT, 11) I  I, (TiTLE( J), Jsl,9) 

I F ( NO , G T , 2 o  0  )  GO  TO  90  0 

READ  (UN,  12)  (  THEMED  (K,l>  ,K  =  1,N0) 

DO  ADO  KbI.NO 
KK=THEMEG{K,1) 

4  0(1  WRITE  (LOUT,  13)  (NAME(KK.H)  ,M*1,6)  ,KK 
45f.  CONTINUE 


500  CONTINUE 


-38- 


CALL  S'l^f  ILE  (LIN) 

PEAL1  A  ‘ 1 U  WRITE  iHfc  VaRIaBlE  DICTIONARY 


556 

60  n 


7or 


eor. 

85P 


9on 

95n 

loon 


WR  I  yP  (LOUT »  1*  > 

DO  O  ll  0  1  - 1 ,  N V  A  R 

PfcAD(LlN,lb)(TITLt(J),Jsl,6),NC 

If  (NO,GT.2.)0>  GO  TO  93o 

HR  I  Tr.<LO>lT*16)  I  »  (  T  !  ’  Lfc(  J)  ,  jsi,  *  ; 

PfcAD(L  iN,l7  )  <  (THEMES  (*,  li)  ,Msi,2  )  ,  Ksl,NO) 

DO  53"  K=l,NO 
KK  =  THt'!cS(K#?) 

WRI  TE(lQ'JT,  id  )  THtMtS(K,lJ,(NA*'tCK«<,J)1Jsl,6)#KK 
JCODE(<K)=2 

CO  NT  ;  NLE  .  ^  - - 

CALL  SMPFILF  (LIN)  \  '  ' '  '  "  ' 

/  ,  \  , 

LIST  ALL  THEMES  NOT  ]N  VAHJAOlF.S  /' 

I 

WR I TE ( LOOT  , 19  )  l  / 

DO  7  T  0  I  si ,  NT  HEME1.  /?  . - .  ✓' 

I  F  (  JCOOC  (  I  )  ,EU,  1  )  VkJ  T£iL'JUr#2oi  I  N  AME  (  J  ,  J  ) ,  Js  1 , 6  ) 

CONTINUE  .  •  ,  \  /' 

s,  / 

read  and  WRITE  LETTER  DICTIONARY  i  ,  / 

'  /  '  // 

WR  I  Tfc  (  LOUT  >  21 )  \  \  1 

READCLIN.22)  NO,  LETTER, (TITLE(J), J=l, 6) 

If  (EOF, LIN)  1050,85'.’  '  .  '  ,  \ 

WR I TE ( LOOT , 23 )  NO  ,  l c T T E H , ( T IT L E ( J > , J  =  1 , 6  )  .  ,  , 

GO  TO  80  0  /■'  ,  //\\  I 

/ 

ERROR  MESSAGES, . .OVERFLOWING  DIMENSIONS  I  ;  \\  / 

WRItE(L0ut,2A)UJ  l, no  ■  -/ 

GO  TO  2  0  TO 
W  R I T  E  <  L  0  0  T  ,25)NO,  I 
GO  TO  2m  0 
WRITE (LOOT, 26) 

GO  TO  2  U  '!  0 


LIST  NON-EXISTENT  THEME  NyMuEHS 

1050  WR I TE ( LOUT , 27  ) 

DO  1 U  75  I s 1 , N  T H t M E 

IF  (  JCO'JE  (  I  )  .  r.U  ,  U  )  wk  J  TE  (  LOU  I  ,  2W  )  I 
1075  CONTINUE 


format  STATEMENTS 


1  FORMAT ( 1H1 #  *  COUNTRY  NO  NAME  ABURE V  I  A T 1  ON  * » / > 

2  FORMAT! IS,2X. A8,A6,A3> 

3  FORMAT  <  5X ,  13,7X»AB,A6#8X,A3> 

4  roRMAT(lHl,3C.X,«TH£ME  CODE  S  *  ,  / ,  2bX ,  *  (  I  N  NUMERICAL  ORDER  )*,//•  4  *  #*  C 
10l)E*,l7x,*THEME  TITLE*#//) 

5  r ORMAT ( I5,6Af!) 

ft  CORMATOX,  15,*,  ,  ,  ,  ,*,6A»i) 

7  FORMAT!//,*  "HE  T0T/*L  NuMuEH  Of  THEMES  IS*,  lb#/) 

P  f OEM A  T  < I b , 6 Afl  #  2X  # 15) 

9  F0RMAT<1M1,5X, lb,3X,6AB,//) 
in  rORMAT(5X,6A«,2X, lb) 

11  *'0RMAT(/,lt)X,  J  3  #  3X#  to A8# // ) 

12  f ORM AT  f  2  0  J  4  ) 

13  ro«MAT(2nx#6AH,* . »  # I  5 ) 

14  f  ORMAT  ( 1H1  #  *  THEME  ASS  I  G  iMtNT  TO  VARIABLES*)  - , 

15  r0RMAT(5X,(>A8,2X,  15)  ' 

16  rOEMAT<////#30X, ‘VARIABLE  *  ,  I  3 , // #  20  X ,  6  A«,  /  > 

17  F  ORMAT  ( 1 6 1 5 )  /  !'  '1  / 

IP  f0RtlAT(5X,  I5i3X,6A0,* . *#Ib)  •  / 

19  F0RMAT(lHl,5X#*THb  FOLLOWING  THEMES  ARf-  NOT  ASSIGNED' TO  A  VaRJABLE 

l*,//)  '  \  ■  /)  "  *  ' 

2P  F 0RMATC5X,  I4,2X#6A3 )  '  ‘  V  ... 

21  FQRrtATdMl,*  LIST  Of  LETTEHEU  .THEMES  IN  NUMERICAL  ORDER*,/* 

22  FORMAT!  15,  A1,6AB)  / 

23  F0RMAT(5X, I5,A1,2H**,6AU)  ' 

24  FORMAT  (1X,*MAJ0R  TOPIC*, 13, *MINOR  TOP  I  C>  , I  3 # *H AS* , I  4 , * TMbMfcS  wnlc 

111  IS  IN  ECXESS  OF  200*)  V  !  \‘  ! 

25  FORMAT  (5X,*THERE  ART*  # 1 5, *T  HEMfcS  IN  VARIABLE*# J  2  #  *  W  H  I  C  H  E*CEDES  T 

1HE  200  '  MAX  I  MUM  DIMENSION*)  '  ‘  - 

2ft  FORMAT  (IX#  »T00  MANY  THEMES  TO  PROCESS ...  EXCEEDS  2L’00*) 

27  FORMAT ( 1H1 #  *  THE  FOLLOWING  THEME  NUMBERS  ARE ' ONUSED* # / > 

2P  F  ORMAT  (5X,  Jb)  ‘“J 

'  ;  / 

END  THE yOB  C2::T211  /  v;;./ 

20  0  0  END 


ORGANIZING  THE  DATA 
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PROGRAM  MATRIX 
Purpose 

The  primary  function  of  this  program  is  to  convert  the  active  data  tapes  into  matrix 
form.  The  equivalent  of  a  three  dimensional  matrix  -  country  by  theme  by  time  period  - 
is  produced.  The  secondary'  function  is  to  produce  a  retrieval  printout  which  identifies  the 
source  of  each  theme. 

Method 

Before  the  matrix  is  created,  the  control  cards  specifying  the  criteria  for  selecting 
observations  must  be  read.  After  the  main  problem  card  is  read,  the  document  range 
cards  are  read  and  NDOC  is  filled  (see  NDOC  under  Dimensioned  Variables).  Next  the 
major  topic  selection  card  is  read,  if  it  exists,  and  array  MAJOR  is  filled  with  a  1 
when  the  topic  is  selected.  Then  the  theme  dictionary  is  read,  and  the  first  six  fields 
of  NAME  are  filled  with  the  theme  title.  A  row  of  NAME  is  left  blank  when  the  theme 
does  not  exist.  If  major  topics  are  being  selected  for  the  retrieval  printout,  the 
major/minor  dictionary  is  read  next,  and  for  each  major  topic  selected,  themes  are 
given  a  flag  of  1  in  the  7th  field  of  NAME.  Lastly,  the  regional  and  lettered  theme 
criteria  for  each  time  period  is  read. 

The  program  then  processes  all  data  on  a  single  country,  filling  NFREQ(theme  no. , 
time  period)  as  observations  are  read.  Each  observation  is  checked  against  the  regional , 
letter  and  document  specifications  and  placed  in  NFREQ  only  when  it  meets  all  of  the 
requirements.  Simultaneously  the  retrieval  printout  is  produced  according  to  its 
specifications  (i.e. ,  all  data  from  major  topic  selected,  all  data  or  only  data  on  the 
matrix  tape).  After  all  the  country’s  data  from  one  input  tape  is  read,  all  of  its  data 
from  the  second  tape  (if  it  exists)  is  read  in  the  same  manner.  After  all  data  for  a 
country  is  read,  NFREQ  is  buffered  out  on  the  tape  and  NFREQ  is  zeroed  out  and  the 
next  country's  data  is  processed. 

Structure  of  Input  and  Output  Tapes 

The  primary  data  and  secondary  data  tapes  are  each  organized  by  country  number 
and  within  country  numerically  by  theme  number.  Each  observation  is  a  BCD  record 
and  the  tapes  are  unblocked. 

The  matrix  output  tape  is  written  in  binary  and  organized  by  country.  The  number 
of  records  for  each  country  depends  upon  the  number  of  time  periods  created.  The  first 
record  for  a  country  contains  the  number  of  mentions  the  country  has  made  of  each  of  the 
1599  themes  during  the  first  time  period.  This  is  followed  by  an  equivalent  record  for  the 
second  time  period,  etc.  This  form  is  followed  for  all  other  countries. 
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Dimensioned  Variables 


There  are  eight  dimensioned  variables  in  program  MATRIX: 

(1)  NDOC,  dimensioned  999,  has  one  field  for  each  document  number.  NDOC(document 
number)  equals  the  time  period  that  the  document  number  is  assigned  to  by  the  document  range 
cards  or  zero  if  it  is  not  assigned  to  a  time  period. 

(2)  NAME  ,  dimensioned  1600  by  7,  is  a  matrix  of  theme  titles  and  theme  selection 
flags.  The  first  six  fields  contain  the  title;  the  7th  contains  a  flag  of  0  or  1,  where  a  1 
means  that  the  theme  is  assigned  to  a  major  topic  selected  for  the  retrieval  output 

and  a  0  means  it  is  not.  If  major  topics  are  not  selected,  all  are  assigned  l's. 

NAME(N,X)  is  blank  whenever  theme  N  does  not  exist. 

(3)  MAJOR,  dimensioned  17,  is  an  array  of  major  topic  flags.  When  major  topics 
are  selected,  MAJOR(N)  is  1  when  topic  N  is  selected,  and  is  0  otherwise.  When  major 
topics  are  not  selected,  all  values  are  1. 

(4)  NFREQ  is  the  matrix  of  theme  frequencies  for  the  country  being  processed.  It 
is  dimensioned  1600  by  4,  with  one  row  for  each  theme  and  one  column  for  each  possible 
time  period.  This  is  the  matrix  that  is  written  on  the  output  tape.  If  major  topics  are 
selected,  NFREQ  is  used  earlier  as  temporary  storage  for  themes  within  a  minor  topic. 

(5)  NACON,  dimensioned  2,  contairis  the  two  field  name  of  the  country  being  processed. 

(6)  NCLASS,  dimensioned  2,  is  the  two  field  classification  title  that  is  to  appear  at 
the  top  and  bottom  of  each  retrieval  output  page. 

(7)  MT,  dimensioned  6,  serves  two  functions.  It  is  the  temporary  storage  of  the 
six  field  theme  title  before  it  is  placed  in  NAME.  During  data  processing,  MT  is  used 
to  store  the  regional  flag  codes  for  the  four  possible  time  periods.  If  MT(N)  is  0,  only 
non-regional  remarks  are  included  in  time  period  N;  if  1,  only  regional  remarks;  and 
if  2,  both  regional  and  non-regional  remarks . 

(8)  NT,  dimensioned  6,  contains  the  letter/non-letter  codes  for  each  time  period. 

If  NT(N)  is  1,  only  non-lettered  themes  are  included  in  time  period  N;  if  2,  both  letter 
and  non-lettered  themes  are  included;  and  if  3,  only  lettered  themes  are  included. 

Operational  Effects  of  System  Changes 

This  program  depends  upon  the  data  tapes  and  the  first  three  files  of  the  dictionary. 
Assuming  that  their  structure  and  format  remain  the  same,  the  following  changes  to 
the  dictionary  files  can  be  handled  by  changing  these  variables: 

If  the  number  of  countries  exceeds  149,  NCOUN  must  be  increased. 

If  the  maximum  theme  number  exceeds  1599,  NMAX  must  be  set  equal 
to  the  maximum  number  and  NAME  and  NFREQ  must  be  redimensioned 
accordingly. 

If  the  number  of  major  topics  exceeds  17,  MAJOR  must  be  redimensioned 
and  NTOPIC  must  be  increased. 


Apart  from  these  changes  to  the  dictionary  file,  the  data  tape  may,  in  the  future, 
contain  observations  from  document  numbers  larger  than  999.  If  this  occurs,  MDOC 
and  NDOC  must  be  increased.  Furthermore,  if  it  becomes  desirable  to  have  more  than 
4  time  periods  on  a  single  matrix  tape,  MT,  NFREQ  and  NT  must  be  redimensioned 
and  format  1  must  be  changed  if  there  are  more  than  8  time  periods.  The  programmer 
is  cautioned  that  expanding  the  number  of  time  periods  increases  substantially  the  amount 
of  core  required. 


Program  Listing 

The  listing  of  program  MATRIX  follows. 
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PROGRAM  MATRIX 

DIMENSION  NOOC 1999 ) «  MT <6) .NAME (1600,7) , NCL ASS < 2 ) , NACON ( 2 ) 

DIMENSION  MAJOR(17),NFR£Q<160Q,4) ,NT(4> 

DATA  ( NBLANK  =  1H  > 

INITIALIZE  VARIABLES  AND  ZERO  OUT  NDOC 

NCOUN= 149  $MD0C=999  $NT0PIC=17  $NMAX=1599 

DO  9  1=1 ,MOOC 
9  NOOC  (II  =  0 
C 

C  READ  MAIN  PROBLEM  CARO  AND  DOCUMENT  RANGE  CAROS  ... 

C  FILLING  IN  NOOC ( DOC • NO  )  WITH  THE  TIME  PERIOD  IT  IS  ASSIGNED  TO 

C  IT  IS  0  FOR  DOCUMENTS  NOT  SELECTEO 
C 

READ  l.NCAROS.NTAPES  , NRET , LOICT ,LM AT , LRET , NMA J, NT I ME , < NCL ASS < I)  ,  I 

1=1,21 

DO  10  J=1 ,NT IME 
DO  10  I  =  1 , NC AROS 
READ  2, MIN, MAX 
00  11  11= MIN, MAX 

11  NOOC  < II >  =  J  ■ 

10  PRINT  3, MIN, MAX, J 

c  •< 

C  READ  MAJOR  TOPICS  TO  BE  INCLUOEO  IN  THE  RETRIEVAL  PRINTOUT 
C  IF  NOT  SELECTING  TOPICS,  ALL  TOPICS  WILL  BE  INCLUDED 

IF (NMA J. NE • 1 1  GO  TO  57 
READ  7 , (MAJOR (I J»I=l,NTOPIC) 

GO  TO  59. 

57  DO  58  1  =  1 , NT OPIC 

58  MA JOR< I ) =1 

READ  THEME  DICTIONARY  ANO  FILL  NAME  WITH  6  FIELD  NAME  OF  THEMES 

59  CALL  SKIPFILE  (LOICT) 

DO  80  1=1, NM AX 

READ(LDICT ,81) ,N, (MT (L ) ,L=1,6) 

IF(N.EQ.O)  GO  TO  82 
NAME (N , 7) =0 

IF (NMAJ.NE.l)  NAME  <N,7  )  =  1 
DO  79  J=1 , 6 

79  NAME(N, J)=MT(J) 

80  CONTINUE 
82  NPAGE= 1 

CALL  SKIPFILE  (LOICT) 

READ  MAJOR/MINOR  TOPIC  CICTIONARY  IF  SELECTING  TOPICS 
SET  A  FLAG  IN  NAME (N, 7)  WHEN  THEME  N  IS  ASSIGNEO  TO 
A  TOPIC  BEING  SELECTEO 
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NL INE=  0 

IF(NMAJ.NE.l)  GO  TO  601 

DO  600  I=l,NTOPIC 

READ  (LOICT, 22)  IT 

DO  620  K=l,  IT 

READ  ( LOICT  *  22 )  KT 

READ (LOICT  ,23)  (NFREQ(J.l) ,J=1,KT) 

IF  (MA JOR ( I  )  •  EQ •  0  )  GO  TO  620 
DO  610  J=1,KT 
KZ=NFREO(J,l) 

610  NAME (KZ  ,  7)  =1 
620  CONTINUE 

600  CONTINUE 

601  REWIND  LOICT 

READ  REGIONAL  SELECTION  CARD  FOR  TIME  PERIODS 

READ  1,  (MT  (I ) • I  =  l»  NTIME ) 

PRINT  1,  (MT( I)  ,1  =  1, NTIME) 

READ  LETTEREO  THEME  CRITERION  FOR  TIME  PERIODS 

READ  1.  (NT ( 1 1  i  1=1, NTIME) 

PRINT  1,  (NT  (I)  ,1=1, NTIME) 

BEGIN  PROCESSING  COUNTRIES  AND  WRITING  RETRIEVAL  PRINTOUT 

DO  1000  1=1 , NCOUN 

IF (NRET.EQ.O )  GO  TO  83 

RE  AO  (LOICT, 61)  ( NACON ( K)  ,K= 1, 2 ) 

WRITE ( LRET ,78) (NCL ASS ( K J , K= 1 , 2) , NPAGE, (NACON(J),  J=l,2) 

NL INE= 11 
83  LU  =  5Q-NT APES 

DO  50  KZ=l, NTIME 
00  50  J=1 , NM AX 
50  NFREQ( J,KZ)=0 

READ  AN  OBSERVATION 

500  REA0(LU,4) J,  L  Y  ,  K  ,  L  ,  M,N  ,  KK,  KP 
IF(EOF.LU)  700,501 

ARE  WE  PROCESSING  THIS  COUNT RY  DATA 

501  IF  (J-1  1502,50  3, 700 

502  PRINT  5,J»N»KK,KP 
GO  TO  500 


YES,  THEN  CUMULATE  THEMES  IN  CORRECT  TIME  PERIODS  GIVEN  INCLUSION 
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CRITERIA 


503  KZZ=  0 

00  499  KZ=1  *  NT IME 
IF  (N00C(N>  .EQ.  KZ>  489*499 

489  IF(LY.EQ.MT( KZ ) .OR.MT( KZ) .EQ.2)  490.499 

490  IF  ( KP  .EQ.  01  GO  TC  492 

491  IF  (NTIKZI  .GE.  2)  493,499 

492  IF  (NT  <  KZ)  .IE.  2)  493,499 

493  NFR£Q(KK,KZ)=NFR£Q(KK,KZ)*1 
KZZ=1 

499  CONTINUE 

WRITE  OBSERVATIONS  ON  RETRIEVAL  PRINTOUT  AND  SPACE  PAGE 

IF  CNRET-1)  500,504,505 

504  IF(KZZ.EQ.O)  GO  TO  500 

505  IF (NMA J.NE.l)  GO  TO  506 
IF(NAME(KK»7) .EQ.O)  GO  TO  500 

506  IF  (KP  .EQ.  0)  KP  =  N8LANK 
IF(LY.EQ.l)  508,509 

508  WRITE  (LRET, 511)  L , M , K , N , KK, KP,  (NAME( KK,KZ) ,  KZ=1,6) 

GO  TO  510 

509  WRITE  ( L RE T ,  6 >  L  ,M  ,K ,N  , KK/,  KP ,  (  NAME  (KK  ,  KZ)  ,  KZ=1,6> 

510  NLINE=NLIN£+1 

IF  (NLI NE  .LT.  55  )  GO  TO  500 

HRITE( LRET ,506) ( NCLASS ( I K> , I K=1 , 2) 

NPAGE=NPAGE«-1 

WRITE (LRET, 5 07) (NCLASS (K) ,K= 1,2) , NPAGE , (NACON(J),  J=l,2> 

NLINE=  5 

RETURN  TO  PROCESS  ANOTHER  OBSERVATION  FOR  THIS  COUNTRY 
GO  TO  500 

RETURN  TO  PROCESS  OBSERVATIONS  FOR  THE  SAME  COUNTY  ON  THE  NEXT  TAPE 

700  BACKSPACE  LU 
LU=LU+  1 

IF (LU. LE .491  GO  TO  500 

WRITE  NFREQ  ON  MATRIX  TAPE  FOR  COUNTRY  AFTER  READING  ALL  OF  ITS  DATA 
DO  705  KZ= 1, NTIME 

BUFFER  OUT (LMAT ,1) (NFREQ( 1 ,KZ) , NFREQ(NMAX ,KZ) I 

701  IF  (UNIT, LMAT)70l, 705 
705  CONTINUE 

COSMETIC  ENO  OF  PAGE  FOR  RETRIEVAL  OF  THIS  COUNTRY 


o  o  o  o  o  o 


IF (NRET.EQ.O)  GO  TO  1000 
IF(NLlNC.LT. 55)  702,704 

702  DO  703  I  J=  NL I NE  ,  55 

703  WR1TE(LREI,701» 

704  WRITE(LRET ,506) (NCLASS(IK) , IK=1,2) 

NPAGE=NPAGE4 1 

PROCESS  ANOTHER  COUNT RT 

1000  CONTINUE 

FORMAT  STATEMENTS 

1  FORMAT (812, 2A8) 

2  FORMAT  (215) 

3  FORMAT (IX,*  THE  FOLLOWING  DOCUMENTS  ARE  INCLUDED*, 15 , *  TO*, 15,*  FO 
1R  TIME  PERIOD*, 15) 

4  FORMAT  (I3,1X.4I1,2X,I3,6X»I4,A1» 

5  FORMAT ( *  CARD  OUT  OF  ORDER* , 31 5 , A1 ) 

6  FORMAT  (5X,I1,*/*,I1,*/*,U,9X,I3,3X,I5,A1,3X,6A8> 

7  FORMAT  (3011) 

22  FORMAT  (55X.I5) 

23  FORMAT (2014) 

61  FORMAT (3X, A3 ,A6) 

78  FORMAT (lHl,4X,2A8,3ttX,*PAG£  NO . * , 1 3 , // , 1 0 X , *COUNT R Y  PROFILE  FOR  *, 
12  A  8,//  ,1X,  *CLASSIFICATI0N/*,/,2X,*RELl  A  BRITT/  THEME*,/ 

2, 3X, ’REPETITION  SOURCE  NO.  THEME  TITLE*,//) 

81  FORMAT (15, 6A8, 15) 

506  FORMAT (GQX ,2A8) 

50  7  FORMAT ( *  1  * , 4X , 2 A 8 , 3 8X , *P AGE  NO . * , 1 3 , // , 1 5X , 2A8 , * ( C ON ' T ) * , / ) 

511  FORMAT  (5X,I1,*/*,I1,*/*,I1,9X,I3,3X,I5,A1,3H  *  ,6A8) 

701  FORMAT(IX) 

ENOFILE  LMAT 

IF (LRET . NE • 61)  ENOFILE  LRET 
END 
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PROGRAM  PTHEME 


The  sole  function  of  this  program  is  to  list  all  of  the  countries  that  have  addressed 
specific  themes  and  to  specify  their  number  of  mentions. 

Method 

The  program  allows  the  user  to  select  a  set  of  themes  for  this  profile  by  choosing 
ranges  of  theme  numbers,  choosing  themes  assigned  to  major  topics  and/or  choosing 
themes  assigned  to  issue -variables. 

Depending  on  the  option(s)  chosen,  the  program  reads  the  relevant  cards  and 
dictionary  files.  The  array  JCODE  is  filled  with  theme  counters  to  the  extent  that 
JCODE( theme  number)  =  N  when  this  theme  number  is  the  Nth  one  to  be  processed 
in  this  run.  A  maximum  of  600  themes  can  be  processed  at  once.  An  error  message 
occurs  when  more  than  600  are  requested  and  the  job  processes  the  first  600  it  detects. 
After  all  the  themes  have  been  assigned  values  in  JCODE,  JCODE  is  reordered  so  that 
the  counter  is  numerically  increasing  as  the  theme  numbers  increase. 

The  program  then  begins  to  process  the  data  from  the  matrix  tape .  The  program 
buffers  in  one  country's  data  and  one  time  period  at  a  time. 

If  that  time  period  was  selected,  the  program  processes  one  theme  at  a  time  and 
only  if  it  is  a  selected  theme  does  the  program  fill  MATRIX. 

MATRIX  is  dimensioned  160  by  100.  Each  row  represents  a  country;  each  column 
represents  6  themes,  hence  the  600  maximum.  When  an  observation  occurs  on  a  theme 
selected,  the  relevant  column  is  determined  by  the  index  of  this  theme  number,  and 
the  value  entered  depends  upon  the  location  of  this  theme  number  within  the  column. 

That  is,  if  theme  number  100  is  the  7th  theme  being  processed  (JCODE(IOO)  =  7) 
and  the  packing  factor  is  6,  then  theme  100  is  located  in  the  first  portion  of  the  second 
column.  Thus,  the  index  would  be  2  and  the  value  would  be  MOVE(l). 

After  all  data  is  read  off  the  matrix  tape,  MATRIX  is  decoded  one  column  at  a  time 
(6  themes  at  a  time).  The  6  entries  in  a  cell  are  stored  in  NEW.  Once  NEW  has  been  filled 
with  every  country's  data  on  the  6  themes,  the  titles  of  themes  and  their  observations  are 
listed.  Then  the  program  returns  to  process  another  column  of  data. 
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Dimensioned  Variables 

There  are  il  dimensioned  variables  in  program  PTIIEME: 

(1)  MATRIX  contains  the  frequency  of  mention  by  euJi  country  of  ,dl  themes  being 
processed.  The  frequencies  are  packed  within  a  column  in  conjunction  wim  MOVE . 

(2)  MOVE,  an  array  dimensioned  6,  must  lie  consistent  with  the  packing  factor 
NPACK.  MOVE  defines  the  portion  of  a  column  where  frequencies  oi  each  of  the  6 
themes  are  cumulated. 

(3)  NAME,  an  array  dimensioned  6,  is  temporary  storage  of  the  theme  title  !x?ing 
processed. 

(4)  JCODE,  dimensioned  1600,  contains  indices  lor  the  themes  being  processed. 
JCODE(theme  number)  is  zero  when  the  theme  has  not  been  selected  and  N  when  this  them 
is  the  Nth  theme  being  processed. 

(5)  NFREQ,  dimensioned  1600,  is  temporary  storage  for  data  read  off  the  dictionaries 
anfl  the  matrix  tape  and  is  also  used  during  the  decoding  process.  NFREQ  stores  the  theme 
within  the  minor  topics  or  variables  when  these  options  are  used  for  theme  selection. 

Later  it  stores  all  observations  of  a  country  in  a  particular  time  period.  During  the 
decoding  process  it  stores  the  theme  numbers  being  processed  in  such  a  way  that 
NFREQ(K)  =  N,  where  the  Kth  theme  being  processed  is  theme  number  N. 

(6)  NTIME,  dimensioned  4,  contains  a  flag  for  the  4  time  periods  that  could  exist 
on  the  matrix  tape.  If  NTIME(t)  -  1,  time  period  t’s  data  is  included  in  the  listing; 
otherwise  it  equals  0. 

(7)  NCLASS,  dimensioned  2,  consists  of  the  classification  title  to  be  written  at  the 
top  and  bottom  of  each  page  of  the  output. 

(8)  NACON,  a  matrix  160  by  2,  contains  a  two  field  name  for  each  of  the  countries 
in  the  analysis . 

(9)  NMAJOR,  dimensioned  17,  contains  a  flag  for  each  major  topic  number.  A  1 
means  that  the  themes  in  the  major  topic  are  to  be  included  in  the  printout;  a  0,  that 
they  are  not. 

(10)  NVARS,  dimensioned  70,  contains  a  flag  for  each  issue-variable.  A  1  means  that 
the  themes  in  the  issue -variable  are  to  be  included;  a  0,  tliat  they  arc  not. 

(11)  NEW  is  a  matrix  dimensioned  160  by  6.  Each  row  represents  a  country  and  each 
column  a  theme  number.  NEW  is  the  decoded  form  of  a  single  column  of  MATRIX  in  which 
the  entries  have  been  unpacked.  An  entry  is  the  frequency  with  which  a  country  lias  made 
this  remark  under  the  conditions  specified  on  the  main  problem  card. 


•erational  Effects  of  System  Changes 


This  program  is  dependent  upon  the  matrix  tape  and  the  first  four  files  of  the 
dictionary  tape.  If  minor  modifications  to  the  four  files  of  the  dictionary  are  made,  the 
programmer  is  cautioned  to  change  the  following  variables  in  this  program: 

If  the  maximum  theme  number  should  exceed  1599,  NMAX  must  be  set  equal 
to  the  maximum  number  and  JCODE  and  NFREQ  must  be  dimensioned  at  least  as  large. 

If  the  number  of  countries  exceeds  149,  NCOUN  must  be  increased.  If 
NCOUN  is  increased  beyond  160,  MATRIX,  NACON  and  NEW  must  be  increased 
accordingly. 


increased. 


increased. 


If  the  number  of  major  topics  exceeds  17,  NTOPIC  and  NMAJOR  must  be 


If  the  number  of  issue -variables  exceeds  70,  NVARB  and  NVARS  must  be 


If  modifications  are  made  to  the  matrix  tape,  such  as  increasing  the  number  of  time 
periods  that  can  exist,  NTIME  must  be  dimensioned  at  least  as  large  as  the  maximum 
number  of  time  periods,  and  the  format  and  read  statements  for  the  main  problem  card 
must  be  changed  accordingly.  ^ 

Apart  from  these  tape  changes,  the  programmer  is  cautioned  to  make  certain  that 
the  number  of  observations  by  a  single  country  on  a  theme  under  the  criteria  established 
on  the  main  problem  card  never  exceeds  128.  If  it  does,  the  packing  factor  must  be 
reduced,  MOVE  and  NEW  would  have  to  be  redimensioned,  and  the  values  of  MOVE 
would  have  to  be  changed  accordingly. 

Program  Listing 


The  listing  of  program  PTHEME  follows . 


I 


o  o  o 


PROGRAM  PTHEME 

01  KENS  ION  MATRIX  ( 160 . 1  00  )  ,  NAME  (  6)  ,  MOVE  (6)  ,  JCDOE  (lbllO  )  ,NFPEQ(  160  0  ) 

01  KENS  I  ON  NT  I  ML  (  4)  ,  NCL  ASS  (  2)  ,  NACON  (  160 , 2  )  ,  Nt W  ( 1 63 , 6 ) 

DIMENSION  NMAJOr  (17),  N  VARS  (70) 

INITIALIZE  MAX  NO  OF  THEMES,  COUNTRIES,  MAJOR  TOPICS,  VARIABLES  AND 
COLUMNS  THAT  FIT  IN  THE  CURRENT  DI ME  NS  I  ON S . . . ZE SO  OUT  COUNTER  AND  JCODE 
C  ESTABLISH  THE  PACKING  FACTOR 

C 

NPACK-6  JNTOPIC-17  SNVAR8=70  $NMAX=1599  «HC0UN=149 

MOVE  (1  )  =2**40  3MOVE (2) -2**32  f MO VE ( 3 ) = 2  *  * 2 4  SMO  VE  ( 4  )  =2  *  *  16 
MOVE<5>=2**«  $M0VE(6)=1  $  KQ=  0  $NCOL=10Q 

00  121  1= 1 , NM  A  X 

121  JCOOE  (I)  =  0 

C 

C  RE  AO  MAIN  PROBLEM  CAPO,  THEN  READ  THEME  RANGE  SELECTION 

C  CAROS  FILLING  JCOO  E ( THEME  NO)  WITH  THE  COUNTER  ON  THE  THEME 

C 

READ  1 , L U, L 0 UT, L 01 CT,N RANGE, MTI ME  * ( NT I  ME ( I ) ,1  =  1,4) ,  (NCLASStKI , K  =  1 » 

12),  NMAJ,  NVAK 
DO  11  J= 1 , NR ANGE 
READ  1 , MIN, MAX 

00  10  I  =  MI  N »  MA  X  ....  ,  '  .  >  ,  ./ 

KQ  =  KQ  ♦  1 

IF  (KO.GE,  600)  GO  TO  122  1  / 

10  JCOOE(I)=KO 

11  CONTINUE 

C  ''  ' 

C  RE  AO  COUNTRY  DICTIONARY  ANO  SKIP  TO  MAJOR/MINOR  DICTIONARY 

C 

122  READ (LOICT ,4)  ( ( N AC  ON < I , J I , J- 1 , 2 ) , I  =  1 , NCOUN ) 

CALL  SKIPFILE  (LOICT) 

CALL  SKIPFILE  (LOICT)  \  \ 

C  ...  v 

C  IF  SELECTING  THEMES  IN  MAJOR  TOPICS,  READ  DICTIONARY  ANO  FILL  IN 

C  JCOOE (THEME  NO)  WITH  THE  COUNTER  ON  THE  THEMES  IN  THE  TOPICS  SELECTED 
C 

IF (NMAJ  ,EQ.  0)  GO  TO  1100 

READ  (60,1111)  (NMAJOR (I ) ,I=l,NTOPIC> 

DO  1112  I = 1 , NTOPIC 
REAC  (LOICT,  1122)  KMAJ 
00  1620  K=l, KMAJ 
READ  (LOICT, 1122)  KMIN 

READ  (LOICT,  112  3)  (NFREQ(II),  11  =  1, KMIN) 

IF  (NMAJOR  (I)  .EQ.  0)  GO  TO  1620 
00  1610  J= 1 , KMIN 
KZ  =  NFRKC(J) 

IF  (JCOOE  (KZ)  ,NE.  0  )  GO  TO  1610 
KQ  =  KQ  *  1 
JCODE <KZ)=KQ 


oooo 


IF  (KQ.GE.  6001  GO  TO  12 
1610  CONTINUE 
1620  CONTINUE 
1112  CONTINUE 

IF  SELECTING  THEMES  IN  VARIA  9LE  S »  READ  DICTIONARY  AND  FILL  IN 
JCOOE ( THEME  NO)  WITH  COUNTER  OF  THEMES  IN  VARIABLES  SELFCTEO 


1100  CALL  SKIPFILE  (LDICT) 

IF  (NVAR  .£Q.  0)  GO  TO  12 

READ  (60,  1111)  (N VARS  ( I) , 1=1, NVARB) 

DO  1212  1=1,  NVARB 
REAO  (LDICT,  1122)  KVARS 

READ  (LDICT, 1221)  ( NFREC ( IK) , IK  =1, KVARS) 

IF  (NVARS(I)  .EQ.  0)  GO  TO  1212 

DO  1230  J  =  1, KVARS  •  -  -  -  -  -- 

KZ  =  NFREQ  (J)  .  '  •  • 

IF  (JCODE  (KZ)  .NE.  0  I  GO  TO  1230  _  ✓  ' 

KQ  =  KQ  ♦  1  v\ 

JCOOE (KZ)=KO  "  ;  / 

IF  (KQ.GE.  600)  GO  TO  12 

123  0  CONTINUE  .■  ?  -  / 

1212  CONTINUE  / 

12  REWIND  LDICT  . 

CALL  SKIPFILE  (LDICT)  ‘ 

4  i  \  '  / 

C  REOROER  JCOOE  FOR  ALL  THEMES  SELECTED  SUCH  THAT  THE  COUNTER  IS 
C  NUMERICALLY  INCREASING  AS  THE  THEME  NUMBERS  INCREASE 

r  \  . .. 

K  =  1  *  ”  *  j  \ 

00  20  0  0  1  =  1, NMA  X  /■  ’  \  \ 

IF  (JCOCE  (I)  .EQ.  0  )  GO  TO  2000  ,  \ 

JCOOE  (I)  =  K  \  / 

K  =  K  ♦  1 4  -  - . *  > 

2000  CONTINUE,'  C'::  r 

/ _  7 


REAO  ALL  DATA  ON  A  COUNTRY  IN  A  GIVEN  TIME  PERIOD 

IF  NOT  A  TIME  PERIOD  SELECTEO.READ  THE  NEXT  TIME  PERIOD  OR  COUNTRY 
IF  IT  IS,  AND  ITS  A  THEME  TC  BE  PROCESSED 

FILL  MATRIX(COUNTRY, PACKING  FACTOR)  WITH  THE  PACKING  WEIGHT 


IF  (KQ  .GE.  600)  PRINT  3 
NCOL  =  (KQ  /  NPACK)  «•  1 
00  999  I K= 1, NCOUN 
DO  998  JK= 1 , MT I  ME 

15  BUFFER  IN(LU,1I (NFREQ(l) .NFREO(NMAX) ) 
20  IF (UNIT,LU)20,16,10QQ 

16  IF(NTIME(JK) .EQ.O)  GO  TO  998 
DO  100  I  =  1 , NMA  X 
IF(NFREQd).EQ.O)  GO  TO  100 


o  o  o  o 


IF ( JCOOE (I > . EQ. 0 >  GO  rc  100 
11=  (  ( JCOOE  (I  )  -1)  /NPACK)  *1 
KI  =  (  II  -1 »*NPACK 
00  50  KK=1, NPACK 
KI =K I ♦ 1 

if  ( jcoqeu )  .ec.ki)  49,50 

49  MATRIX  (IK*II)=MATkIX(lK»II)+(MQVE(KK)*NFREQ(II  ) 

50  CONTINUE 
100-  CONTINUE 

998  CONTINUE 

999  CONTINUE 

AFTER  READING  ALL  COUNTRIES  AND  TIME  PERIODS,  DECODE  MATRIX  ONE  SET 
OF  THEMES  AT  A  TIME. ..AND  WRITE  OUT  THE  GtiSERVA  T  IONS  WITH  THE  THEME  TITLE 

1000  K=1  - 

DO  450  1=1 ,NMAX 
IF  ( JCO OE ( I ) . EQ . 0  J  GO  TO  450 
NFREO(K)=I 

K=K+l  i  " 

450  CONTINUE  ;  /' 

NL I NE=  0  /  /  -  ■■■  /’ 

DO  500  J  =  1  ,NCOL  '  -  '  ...  .  •  ^  / 

KTHEME= ( (J-l ) *NPACK) *1 

MTHEME=KTHEME+ (NPACK-1) 

DO  499  I  =  l,NCCUfJ 
DO  451  LL=  1  ,  NP  ACK 

451  NEW < I , LL  )  =  0 

IF  (MATRIXd,  Jl  .EQ.O)  GO  TO  499 

L  =  0  \ 

DO  400  KK=1, NPACK  \ 

NEW(I,KK1=(MATRIX(I,J>-LI/M0VE(KK)  ! 

L=L* (NEW ( I,KK) *MOVE (KK ) )  / 

40  0  CONTINUE  ‘  /  /  / 

499  CONTINUE  .  777  7 

00  460  LC=  1,  NP  ACK  . - 

KK=(KT HEME-1 ) «-LC 

461  READ (L0ICT,6)  NO  ,  ( NAME < K )  , K= l, 6 ) 

IF<NO-NFRFQ(KKI 1461,470,480 
470  WRIT  E ( LOUT , 7 )  NO , ( NAME < K ) , K= 1 , 6  ) 

NlINE=NLINE*2 

DO  465  I=1,NCCUN 

IF (NEW  (I,LC)  .EO.O)  GO  TO  465 

WRIT  E ( LOUT , 6 1  ( N ACO N ( I , N ) , N = 1 , 2)  ,NEW(I,UC> 

NL I NE=  NL I Nt*  1 
IF (NLINE.GT. 55J  418,465 
418  WRITE (LOUT, 9) (NCLASS(N)  ,N=1,2> 

WRITE(LOUT,181  ( NCL  A  SS ( M , N=1 ,2) 

NL INE=  1 
465  CONTINUE 


-53- 


o  o  o 


GO  TO  460 

480  BACKSPACE  LOICT 
460  CONTINUE 
500  CONTINUE 

FORMAT  STATEMENTS 

1  FORMAT  <515,411, 2A3, 215) 

2  F ORMAT  <3  014) 

3  FORMAT  <1X,*  ONLY  THE  FIRST  600  THEMES  ARE  INCLUOEO  IN  THIS  RUN*) 

4  FORMAT  < 5 X, A8, A6> 

6  FORMAT  <15, 6A8) 

T  FORMAT  <2X, 15 , 2X , 6A 8 , /) 

8  FORMAT <10X,A8,A6, 15) 

9  FORMAT <61X,2Afl> 

18  FORMAT  <1H1,2X,  2A8)  .  -  .  - --- - - -7 

1111  FORMAT  <7011)  _  'n  y 

1122  FORMAT  <55X,  15)  '  \  - - ' 

1123  FORMAT  <2014)  '  '•  >  /'  ' 

1221  FORMAT  <8<5X,I5))  / 

..  \  ;  '  / 

ENO  \  V\  / 
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PROGRAM  LETTER 


Purpose 

This  program  is  a  special  case  of  program  PTHEME  and  handles  data  on  lettered 
themes.  The  sole  function  of  LETTER  is  to  list  all  the  countries  that  have  addressed 
particular  lettered  themes  and  to  specify  the  number  of  mentions.  A  theme  profile 
is  produced  for  all  lettered  themes  that  were  selected. 

Method 

Unlike  PTHEME,  this  program  reads  the  original  data  tapes.  First,  the  main 
problem  card  is  read  and  then  the  document  numbers  to  be  included  in  this  printout  are 
read  from  the  document  range  cards.  The  array  NDOCS  is  filled  so  that  NDQCS(N)  is 
1  when  observations  from  document  N  are  to  be  included  and  0  when  they  are  not. 

The  lettered  theme  dictionary  is  read  and  the  first  3J5  theme  numbers  with  letters 
are  identified.  JCODE(theme  no.)  is  assigned  a  disc  number  where  this  theme's  data 
will  be  temporarily  stored.  Currently  seven  theme  numbers,  each  with  its  various 
lptter  designates,  are  assigned  to  a  disc  unit  1  to  45,  hence  the  315  maximum. 

Then  the  input  data  tape(s)  are  read  an  observation  at  a  time.  If  the  observation  i$ 
on  a  lettered  theme  being  processed  in  this  run  and  it  meets  the  document  and  regional 
code  criteria,  it  is  written  on  the  disc  unit  that  stores  this  theme  number  (and  6  others). 

After  all  data  has  been  read  from  the  tape(s)  and  the  appropriate  observations  have 
been  stored  on  disc,  the  lettered  theme  dictionary  is  reread  one  theme  number  and  letter  at 
a  time.  The  appropriate  disc  is  searched  for  observations  and  as  they  are  found  they  are 
written  on  the  printout.  The  disc  is  then  rewound  and  the  next  lettered  theme  is  processed 
in  the  same  manner. 

Dimensioned  Variables 

Program  LETTER  has  five  dimensioned  variables: 

(1)  NDOCS  is  dimensioned  999  with  one  field  for  each  existing  document  number. 

If  document  N’s  data  is  to  be  included  in  the  printout,  NDOCS(N)  -  1;  otherwise  it  equals  0. 

(2)  NACON,  a  matrix  dimensioned  160  by  2,  contains  a  two  field  name  for  each 
country . 

(3)  JCODE  is  an  array  1599  long  with  one  field  for  each  theme  number.  Beginning 
with  the  smallest  theme  number  for  this  run  as  specified  on  the  main  problem  card, 

JCODE  is  filled  with  a  counter  for  each  theme  number  with  letters;  that  is,  JCODE(theme 
number)  =  N  whenever  the  theme  npmber  has  lettered  versions  to  it  and  it  is  the  Nth  such 
theme  number  found.  JCODE  is  zero  in  all  other  cases. 


(4)  NCOUNT,  an  array  dimensioned  45,  one  field  for  each  temporary  disc  to  be  used, 
is  merely  the  number  of  observations  that  exists  on  each  disc. 

(5)  MT,  dimensioned  6,  contains  a  six  field  title  of  the  theme  being  processed. 
Operational  Effects  of  System  Changes 

The  normal  operation  of  this  program  depends  upon  the  current  structure  and  format 
of  the  data  tape,  country  dictionary,  and  lettered  theme  dictionary.  The  following  minor 
modifications  can  be  handled  by  changing  the  following  variables: 

If  the  number  of  documents  exceeds  999,  NDOCS  will  have  to  be 
redimensioned. 

If  the  maximum  theme  number  exceeds  1599,  MAXT  and  JCODE  must  be  at 
least  as  large  as  the  maximum  number. 

If  the  number  of  countries  exceeds  160,  both  MAXC  and  NACON  must  be 

increased. 

This  program  will  currently  process  315  theme  numbers  with  all  of  their  lettered 
versions  (i.  e. ,  45  discs  with  7  per  disc).  This  handles  all  existing  lettered  theme  numbers. 
If,  in  the  future,  it  does  not,  NPACK  cotild  be  increased  and  then  more  themes  would  be 
written  on  a  single  disc. 


Program  Listing 

The  listing  for  program  LETTER  follows. 


PROGRAM  LETTER 

(DIMENSION  N  COUNT  (45)  ,  M  T  (6)  , NOOCS (  999),NACON(160»2>,JCOCE(1599) 

OATA  (NBLANK  =1H  > 

INITIALIZE  MAX  MO  OF  T HEME S , C CUNT E  IF  3  AND  DISCS  THAT  CAN  Dc  RUN 

WITH  THE  CURRENT  0 1  MEN S I  ON S . . SE T  NSKIP  TO  BE  THE  NO  OF  FILES  TO  GET  TO 

LETTERED  THEME  DICTIONARY  AND  ESTABLISH  THE  PACKING  FACTOR.. 

ZERO  OUT  COUNTERS, NCCUNT  AND  JCCDE 

MA  XT  =  1 599  ?MAXC=16Q  $HAXC=45  $NSKIP  =  4  JLCO'JNT=0  $NDISC=0 
NPACK  =  7 
00  10  I  =  1 , M A  X  T 
10  JCOOE(I)  =  0 

00  15  I=1,MAX0 
15  NCOUNT ( I 1  =  0 

READ  MAIN  PROBLEM  CARO, COUNTRY  DICTIONARY  AND  DOCUMENT  SELECTION  CARDS 
SET  UR  NDGC  WITH  1*E  FOR  DOCUMENTS  SELECTEO  IN  THIS  RUN 

RE  AO  1,  NT  APES ,  NTHEME,  NDCC,  N&EG,  LOICT,  LOUT,  NCOUN 
READ  (LOICT  ,6  )  (  (  N  A  CON  ( I ,  J )  ,  J  =  1 ,  2  )  ,  I=1,NCCUN> 

DO  IB  I  =  1 , NO  OC 

READ  1,  MIN,  MAX  ^ 

DO  17  J-HIN,  MAX  '  v 

17  NQOCS(J)  =  1  .•/  ./ 

18  CONTINUE  y  ''  i  :  !  ' 

V 

AFTER  SKIPPING  TO  LETTEREO  THEMF  OIC TI ON A R Y . . PE A D  ONE  THEME  AT  A  TIME 
IF  IT  IS  TO  PROCESSED, FILL  JCCDE  (THEME  NO)  WITH  PACKING  FACTOR 
WHICH  REFERENCES  DISC  WHERE  THE  THEME  WILL  OE  STORED 

00  20  1=1, NSKIP 
20  CALL  SKIPFILE  (LOICT) 

50  READ  (LOICT, 2)  ( M , N ,  (MT ( I ) , I =1 , 6 ) ) 

IF  (EOF, LOICT)  100,51 

51  IF  (H  . L T .  NTHCMEI  GO  TO  50 
IF  (JCOOE  (M)  ,NF,  0)  GO  TO  50 
JCOOE  (M)  =  (LCOUNT/NPACK)  ♦  1 
LCOUNT  =  LCOUNT  ♦  1 
LL  =  ( (LCCUNT  ♦  l)  /  NFACK)  ♦  1 
IF ( LL  . GT.  MAXO)  60,50 

60  PRINT  i ,  M,N,  (  M  T  < I) ,1=1,6) 

100  REWIND  LOICT 

OD  101  1=1, NSKIP 

101  CALL  SKIPFILE  (LOICT) 

RE  A  C  FIRST  TAPE. .ONE  OBSERVATION  AT  A  TIME.. 

IF  OBSERVATION  MEETS  THE  CRITERION  FOR  REGIONAL  CODE , DOCUMENT 
COOE  AND  LETTERED  THEME, WRITE  THE  OBSERVATION  ON  APPROPRIATE  DISC 


o  o  o 


LU  =  5  O-NTAPES 

150  READ  (LU,4)  J,K,L,M,N 

IF  (EOF ,LU )  1000,151 

151  IF  (K  .EQ.  NREG  .OR.  NREG  .EO.  2)  152,150 

152  IF  (NOOCS  (L )  .EQ.  0)  GO  TO  150 

IF  (N  . EQ. NBLANK  .OR.JCOOE(M)  .EQ.O)  GO  TO  150 
KK  =  JCOOE (M) 

WRITE  (KK, 51  J,M,N,L 
NCOUNT  (KK)  =  NCOUNT  (KK)  +  1 
IF  (KK  .GT.  NOISC)  NOISC  =  KK 
GO  TO  150 


IF  MORE  THAN  ONE  INPUT  TAPE,  RETURN  TO  READ  ALL  OF  ITS  OBSERVATIONS  AS 
DESCRIBED  EARLIER 

IF  NOT . . .ENDFILE  AND  REWIND  ALL  DISC  UNITS 


1000 


1100 


2000 

2001 


2500 


LU  =  LU*1  .  "  % 

IF  (LU  .LE.  AS)  GO  TO  150 
DO  1100  J  =  1, NOISC  V. 

ENDFILE  J  I  ' 

REWIND  J  ' 


-  -/ 
/ 

/ 


REREAD  LETTEREO  THEME  DICTIONARY, ONE  LETTER  AT  A  TIME 


WRITE  OUT  THEME  NUMOER/LETTER  AND  TITLE  AND  SEARCH  THE 

APPROPRIATE  CISC  FOR  ALL  OF  ITS  OBSERVATIONS  ANG  WRITE  ANY  FOUND 

.  j 

READ  (LOICT,2)  (M , N, ( MT ( I ) , 1= 1 , 6) )  '  . 

IF  (EOF,LOICT)  5000,2001  \j  - - 

NREC  =  NCOUNT ( JCOOE (M) )  x  ,  \ 

IF  (JCOOE  (M)  -.EQ.O)  GO  TO  2000  .  -  /\ 

WRITE  (LOUT, 7)  ( M, N ,  ( MT { I ) , 1=1 , 6) )  '  \  \ 

00  250  0  1=1,  NREC  /  /  /  \  \  j 

KK  =  JCOOE  (M)  /  ‘  "  \  / 

RE  AO  (  KK,  5)  ‘  J  J,  MM  ,NN ,  LL .  V  /  \v  / 

IF  (MM.NE.  M  .OR.  NN  .NE.  N)  GO  TO  2500  '*"/ 

WRITE  (LOUT, 0)  (NACON  (JJ,K),  K=1,2),LL 
CONTINUE 


REWINO  DISC  AND  RETURN  TO  RE AO  THE  NEXT  LETTERED  THEME 

REWIND  KK 
GO  TO  2000 

FORMAT  STATEMENTS 


1  FORMAT  (1615) 

2  FORMAT  (15,  Al,  6A8) 

3  FORMAT  ( 1  HI , *  THE  FOLLOWING  THEME  WAS  THE  LAST  TO  BE  PROCESSED*, 

115 , Ai , 2  X, 6 A8 ) 

*•  FORMAT  (13,  12,  5  X ,  13,  6X,  14,  Al) 

5  FORMAT  (2I5«A1,I5) 

6  FORMAT (5X, A8, A6) 

7  FORMAT  (/,  5X ,  14,  Al,  2X,  6A6) 

8  FORMAT (10X,A8,A6,2X, 15) 


5000  ENO 


PROGRAM  PROFLE 
Purpose 

This  program  and  its  subroutine  produce  one  of  four  possible  reports  of  the  data  on 
the  matrix  tape.  Depending  on  the  option  selected,  the  program  lists  in  numerical  order: 

•  countries  with  their  frequency  of  mention  of  themes  by  time  period, 

•  countries  with  their  data  organized  into  major  and  minor  topics  by  time 
period, 

•  themes  with  the  number  of  mentions  by  all  countries  during  each  time  period, 

•  countries  with  their  data  organized  into  selected  issue-variables  for  each 
time  period. 

The  last  option,  country  profile  by  issue-variable,  is  the  only  one  that  continues  the 
flow.  It  produces  an  output  tape  which  converts  the  matrix  input  into  observations  on 
issue-variables  for  use  by  program  SCORES.  Up  to  45  issue -variables  can  be  processed 
at  once. 

Method 

When  producing  any  of  the  above  four  reports,  the  program  reads  the  main  problem 
card  and  then  all  selection  cards  in  the  following  order.  First,  the  country  range 
selection  cards,  if  any,  are  read  and  NACON(country  number,  3)  is  set  to  1  if  the  country 
is  to  be  included  and  0  if  not.  If  there  is  no  country  selection  card,  all  countries  receive 
a  1.  The  theme  range  selection  cards  are  read  and  JCODE(theme  number)  is  set  to  I  if 
the  theme  is  selected  and  0  if  not.  The  same  procedure  as  with  country  selection  cards 
is  then  followed  for  the  major  topic  selection  cards  and  issue -variable  selection  cards,  if 
they  exist,  and  NTOPIC.  But  a  country  profile  by  issue -variable  cannot  have  been  requested 
when  topic  selection  cards  exist,  and  vice  versa.  Then  the  final  control  card,  titles  of 
time  periods,  is  read,  storing  only  those  titles  used  in  this  job. 

The  dictionary  files  are  read  next,  first  the  country  dictionary  and  then  the  theme 
dictionary.  If  major  topics  are  being  selected,  this  dictionary  is  read,  the  titles  are 
stored  in  NAMEM,  and  the  themes  within  selected  topics  are  stored  on  disc  units.  The 
same  procedure  is  followed  for  reading  the  issue-variable  dictionary  when  issue-variables 
are  being  selected  and  a  country  profile  by  issue -variable  has  been  requested. 

At  this  point,  the  type  of  profile  requested  will  determine  the  remaining  logic  to 
follow.  If  the  selection  is: 

(1)  A  country  profile  with  theme  frequency,  all  time  period  data  on  tine  matrix  tape 
for  a  given  country  is  buffered  into  NFREQ(theme  number,  time  period).  If  this  country 
has  been  selected  as  one  to  process,  the  themes  are  taken  one  at  a  time  in  numerical  order. 


If  a  theme  is  one  that  was  selected  and  this  country  has  data  on  it,  this  theme  is  listed 
with  this  country’s  frequency  of  mentions  in  each  of  the  selected  time  periods.  Once 
all  themes  have  been  processed,  the  next  country's  data  is  buffered  in. 

(2)  A  country  profile  by  major/minor  topic,  all  existing  time  period  data  for  a  given 
country  is  buffered  into  NFREQ(theme  number,  time  period).  If  this  country7  has  been 
selected  as  one  to  process,  the  major  topics  are  processed  one  at  a  time.  For  each 
selected  major  topic,  minor  topic  themes  are  read  off  the  disc.  If  this  country  has 
data  on  any  of  these  themes,  the  theme  is  listed  with  the  frequency  of  mention  in  each 

of  the  selected  time  periods.  Once  all  minor  topics  from  selected  major  topics  have 
been  processed  in  this  manner,  the  next  country’s  data  is  buffered  in. 

(3)  A  theme  profile  with  total  number  of  mentions,  all  data  from  the  tape  (for 
selected  countries)  is  buffered  into  NFREQ(theme  number,  time  period)  and  cumulated. 

The  selected  themes  are  listed  in  numerical  order  with  number  of  mentions  across  all 
countries  in  the  selected  time  periods. 

(4)  A  country  profile  by  is  sue -variable,  all  time  period  data  for  a  given  country 
is  buffered  into  NFREQ(theme  number,  time  period).  If  the  country  has  been  selected, 
the  issue -variables  are  taken  one  at  a  time.  (A  maximum  of  45  variables  can  be  pro¬ 
cessed.)  For  each  selected  issue-variable,  themes  are  read  from  the  disc.  If  the 
country  has  data  on  these  themes,  theyvare  listed  with  the  frequency  of  mention  in  each 
of  the  selected  time  periods.  Simultaneously,  each  mention  of  a  theme  within  a 

selected  issue -variable  is  buffered  out  to  the  output  tape.  (See  Structure  of  Is  sue -Variable 
Data  Output  Tape  below.)  Once  all  selected  issue -variables  have  been  processed,  the 
next  country's  data  is  buffered  in. 

All  four  types  of  profile  call  subroutine  HEADER,  which  prints  the  classification  on 
the  bottom  of  each  retrieval  output  page  and  a  continuation  heading  on  the  top  of  the  next 
page. 

Structure  of  Issue -Variable  Data  Output  Tape 

This  binary  output  tape  is  created  whenever  a  country  profile  by  issue-variable  is 
requested.  This  tape  is  necessary  to  continue  the  flow  through  the  remaining  programs. 

It  contains  all  the  data  listed  in  the  country  profile  printout,  but  each  mention  of  a 
theme  is  written  on  a  separate  record.  It  is  organized  by  country  and  within  country 
by  issue -variable.  Within  an  issue-variable  the  observations  on  themes  are  listed  in  the 
order  in  which  they  appear  in  the  variable,  with  the  first  time  period's  data  on  a  given 
theme  appearing  before  the  second,  etc.  A  record  has  the  following  field  interpretations: 

1)  country  number 

2)  issue -variable  number 

3)  theme  number 

4)  rank  of  this  theme  in  this  issue-variable 

5)  time  period  of  this  observation. 
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Dimensioned  Variables 

There  are  15  dimensioned  variables  in  this  program: 

(1)  NACON  is  dimensioned  160  by  3,  with  one  row  for  each  country.  The  first  two 
columns  contain  the  country  name  and  the  third  serves  as  a  flag  for  selecting  countries. 

If  it  is  1,  the  country  is  processed;  if  it  is  0,  the  country  is  skipped. 

(2)  JCODE,  dimensioned  1800,  contains  theme  number  flags.  If  JCODE(N)  is  1,  theme 
number  N  exists  and  is  included  in  the  analyses.  If  JCODE(N)  is  0,  either  it  does  not 
exist  or  it  is  excluded  from  the  analysis. 

(3)  NTOPIC,  dimensioned  70,  contains  flags  for  either  selected  topics  or  selected 
issue -variables,  depending  on  the  type  of  profile  requested.  If  NTOPIC(N)  is  1,  topic 
or  variable  N  is  included;  if  0,  it  is  excluded  from  the  analysis. 

(4)  MT,  6  fields  long,  is  the  temporary  storage  of  the  theme  title  being  processed 
prior  to  its  being  stored  in  NAME. 

(5)  NAME,  dimensioned  1800  by  6,  is  a  matrix  of  theme  titles.  NAME(N,  1*6) 
contain  the  title  for  theme  number  N. 

(6)  NAMEM,  dimensioned  170  by  5,  is  a  matrix  of  titles  of  either  topics  or 
issue -variables,  depending  on  the  type  of  profile  requested.  If  it  contains  topic  titles, 
they  appear  in  the  order  they  are  read,  i.e.,  major  topic  1  followed  by  its  various 
minor  topics,  then  major  topic  2,  etc.  If  it  contains  issue -variable  titles,  they  appear 
in  numerical  order.  In  either  case,  the  first  four  columns  are  the  title  and  the  fifth 

is  the  number  of  minor  topics  in  the  major  topic  or  themes  in  a  minor  topic  or  variable. 

(7)  KTHEME,  a  matrix  170  by  2,  is  the  temporary  storage  of  theme  numbers  and 
their  ranks  in  the  issue -variable  being  processed.  In  each  case,  the  rank  fills  the  first 
column  and  the  theme  number  the  second t 

(8)  KNT,  dimensioned  17,  contains  a  coupler  that  locates  the  beginning  of  major 
topics  in  the  matrix  NAMEM.  If  KNT(3)  =  10,  the  major  topic  3  title  appears  in  the 
10th  row  of  NAMEM  followed  by  its  minor  topic  titles. 

(9)  NCLASS  is  a  two  field  array  of  the  classification  to  be  written  at  the  top  and 
bottom  of  every  page  of  the  printout. 

(10)  NFREQ  is  the  working  matrix  of  frequency  of  mention  of  a  theme  number  in  a 
given  time  period.  It  is  dimensioned  1800  by  4  with  a  row  for  each  theme  and  a  column 
tor  each  of  4  possible  time  periods.  For  country  profiles,  each  cell  contains  the 

frequency  for  the  country  being  processed.  For  a  theme  profile,  it  contains  the  cumulative 
frequency  for  all  countries. 

(11)  NTIME,  dimensioned  4,  contains  flags  for  the  time  periods  selected.  Originally, 
it  is  read  as  a  series  of  l's  and  0’s  so  that  NTIME(N)  *  1  when  the  Nth  time  period  is 
selected.  During  most  of  the  program,  NTIME(N)  =  J,  which  means  that  the  Nth  time 
period  being  processed  is  the  Jth  time  period  on  the  input  tape. 
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(12)  FLAG,  dimensioned  20,  contains  a  0  or  1  flag  for  each  minor  topic  of  the  major 
topic  being  processed.  If  FLAG(N)  is  0,  minor  topic  N's  title  has  not  been  written  on  the 
printout;  a  1  means  that  it  has  been. 

(13)  NMAJOR,  dimensioned  90,  contains  the  temporary  storage  of  the  theme  numbers 
within  the  minor  topic  being  processed. 

(14)  NAMET,  dimensioned  4,  is  an  array  of  time  period  titles  for  all  the  time  periods 
on  the  input  tape.  After  they  have  been  read,  the  titles  are  consolidated  so  that  NAMET 
contains  only  the  titles  of  selected  time  periods  and  they  appear  in  the  first  available 

cell;  i.e. ,  NAMET(N)  contains  the  title  of  the  Nth  time  period  that  has  been  selected. 

(15)  MCOUNT,  dimensioned  1800,  is  the  temporary  storage  of  frequency  of  mentions 
by  a  country  in  a  time  period.  It  is  used  when  a  theme  profile  is  produced.  This  array 
is  later  cumulated  in  NFREQ. 

Operational  Effects  of  System  Changes 

Program  PROFLE  depends  upon  the  matrix  tape  and  the  first  four  files  of  the 
dictionary  tape.  Assuming  that  their  structure  and  format  remain  the  same,  the 
following  changes  to  the  dictionary  files  can  be  handled  by  changing  these  variables: 

If  the  number  of  countries  •'exceeds  149,  NCOUN  must  be  increased.  If  it 
exceeds  160,  NACON  must  be  redimensioned. 

If  the  maximum  theme  number  exceeds  1599,  NMAX  must  be  set  equal  to 
the  new  maximum  number.  If  this  new  maximum  should  exceed  1800,  JCODE,  NAME, 
NFREQ,  and  MCOUNT  must  be  redimensioned. 

If  the  number  of  major  topics  exceeds  17,  NMAJ  must  be  changed  and  KNT 
must  be  redimensioned.  If  it  exceeds  70,  NTOPIC  must  be  increased. 

If  the  total  number  of  major  and  minor  topics  ever  exceeds  170,  NAMEM 
must  be  increased. 

If  the  number  of  minor  topics  in  a  major  topic  ever  exceeds  90,  NMAJOR 
must  be  increased. 

If  there  are  more  than  20  minor  topics  in  a  major  topic,  FLAG  must  be 
redimensioned . 

If  the  number  of  issue-variables  exceeds  70,  NVAR  must  be  increased 
and  NTOPIC  redimensioned.  If  it  should  exceed  170,  NAMEM  must  be  redimensioned. 

If  the  number  of  themes  in  an  issue -variable  ever  exceeds  170,  KTHEME 
must.be  redimensioned. 
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Apart  from  these  changes  to  the  dictionary  files,  the  matrix  tape  could  in  the  future 
contain  more  than  4  time  periods.  If  this  occurs,  NFREQ,  A'TIMH,  and  NAMET  must 
be  increased. 

Finally,  if  it  becomes  desirable  to  process  more  than  45  issue-variables  at  once, 
the  logic  of  this  program  will  have  to  be  changed.  Currently,  each  issue-variable  is 
assigned  to  a  separate  disc  and  only  45  discs  are  available. 

Program  Listing 

The  program  and  subroutine  listings  follow. 
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PROGRAM  PkOFLE 

COMMON  NACON(160,3> ,NCLASS(2> 

DIMENSION  JCOOE (18001  , NTOPIC < 70  I , MT (6» , NAME  ( 1600 , 6 > ,NTIME(4> 
DIMENSION  NAMEM (170,5) , KTHEME ( 1 7 0 , 2 > , KNT ( 17 > , NFRE Q( 1800 , 4) 
DIMENSION  EL  AG (20) ,NMAJOR(90> .MCOUNT (i  80  0  > , NAME T (4  I 
TYPE  INTEGER  FLAG 

INITIALIZE  THE  NUMBER  OF  COUNTRIES,  THEHES,  TOPICS  AND  VARIABLES 
SET  61  TO  BE  THE  OUTPUT  FOR  THE  PROFILE  PRODUCEO  .. 

RE AO  MAIN  PROBLEM  CARO 

NC0UN=149  $NM AX=1 599  $LOUT=61  $NMAJ=17  $NVAR=70  $NPAGE=0 
READ  l,LU,LOICT,LOUTT,ICOUN, ITOPIC,LCOUN,LTHEME,LTOPIC,MTIME, (NTIM 
1E(J),J=1,4) , (NCLASS(I) ,1=1,21 
WRITE ( LOUT ,25) LU, LOICT , LOUT , ICO  UN, ITOP IC 

IF  SELECTING  COUNTRIES,  READ  COUNTRY  RANGE  SELECTION  CARDS  AND 
FILL  NACONtCOUNTRY  NO, 3)  WITH  A  1  WHEN  SELECT EO • • 0  IF  NOT 
IF  NOT  SELECTING  COUNTRIES  ALL  CELLS  ARE  1. 

IF (LCOUN ,EQ. 0 )  GO  TO  35 
DO  30  1=1, LCOUN  v 

READ  3, MIN, MAX  V  .... 

WRITE (LOUT, 2)  MIN, MAX 
OO  29  J=  MI N, MA X 

29  NACON  (  J,  3)  =1  '  ^ 

30  CONTINUE 
GO  TO  40 

35  WRITE  <  LOUT ,  4 ) 

DO  31  1  =  1, JNC OUN 

31  NACON ( I , 3 ) =1 

IF  SELECTING  THEMES,  READ  THEME  SELECTION  CARDS  AND  FILL 
JCCDE ( THEME  NOJ  WITH  1  IF  SELECTED  AND  0  IF  NOT. 

IF  NOT  SELECTING  THEMES,  JCOOE  IS  ALWAYS  1 

40  IF (LTHEME.EQ.O)  GO  TO  55 
00  50  1=1, LTHEME 
RE AO  3, MIN, MAX 
WRITE (LOUT ,51  MIN, MAX 
DO  49  J=  MI N, MA X 

49  JCOOE ( J) =1 

50  CONTINUE 
GO  TO  60 

55  WRITE ( LOUT  ,6 ) 

DO  56  1=1, NM AX 

56  JCOOE( I) =1 

IF  SELECTING  MAJOR  TOPICS  OR  VARIABLES,  READ  MAJOR  TOPIC  OR 
VARIABLE  SELECTION  CARO  AND  FILL  NTQPIC(NO)  WITH  1  IF  SELECTED 
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AND  0  IF  NOT.  IF  NOT  SELECTING  TOPICS  OR  VARIABLES  OR  AN  INCOMPAT- 
AOLE  REQUEST  IS  MADE,  NTOPIC  IS  ALL  1. 

60  IF  (LTOPIC-1) SO, 61, 70 

61  IFdCCUN.NE.  2 )  GO  TO  89 
READ  6,  (NTGPICm,  I=l,NMAJ) 

WRITE (LOUT, 6)  (NTOPIC (I >,I=1,NMAJ) 

GO  TO  92 

70  IFdCCUN.NE.  3)  GO  TC  09 

RE  AO  8, (NTOPj.C(II»I=1*NVAR) 

WRITE (LOUT ,8) (NTOPIC (I) ,I=1*NVAR) 

GO  TO  92 

89  WRITE( LOUT, 7)  ICOUN.LTCPIC 
STOP 

90  WRITE( LOUT , Id) 

00  91  1=1, N VAR 

91  NTOPIC ( I >  =  1 

THE  TITLES  OF  THE  TIME  PERIODS  ARE  READ  AND  REARRANGED 

92  RE  AO  34, ( (NAMET(I) ,I  =  1,MTIME) I 
KT I ME=  0 

DO  93  1= 1 , MT I  ME 

93  KTIME=NTIME(IUKTIME 
DO  94  I=1,KTIME 
J=I 

IF (NTI ME (I ). EG, 01  95,94 

95  J=J*1 

IF (NTI ME (J) , EQ, 0  >95,96 

96  NT  I  ME ( J) =0 
NAMET( I >=NAMET ( J> 

94  NT IME ( I ) = J 

READ  COUNTRY  DICTIONARY 

RE  AO  (EDICT,  19)  (  (NACONd,  J)  ,  J=  1, 2)  ,1  =  1,  NCOUN) 

CALL  SKIPFILE  (LOICT) 

READ  THEME  DICTIONARY  FILLING  JCODE ( THEME  NO)  WITH  1  IF  SELECTED 
ANO  IT  EXISTS. ..0  OTHERWISE 

00  120  1=1, NMA  X 
READ(LOICT , 2 1 ) N , (M  T  (  K )  ,  K=  1 , 6  > 

IF (N) 1 21 , 121 , 105 
105  DO  110  J= 1 ,6 
110  NAMt (N  ,  J )  =  MT  ( J) 

120  IFCJCODE(N).NE.O)  JCOOE(N)=-1 

121  CALL  SKIPFILE  (LOICT) 

DO  124  I =1 , NMA  X 
IF  < JCOUE(I) )  130,124,132 


I 
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130  JC00E( I ) =1 
GO  TO  124 
132  JCOOE (11=0 
124  CONTINUE 

IF  SELECTING  MAJOR  TOPICS  ANO  PRODUCING  A  COUNTRY  PROFILE  OY  MAJOR/ 
MINOR,  READ  MAJOR/MINOR  DICTIONARY  ANO  STORE  NAMES  OF  TOPICS  IN 
NAMEM  AS  THEY  ARE  REAO..ZERO  OUT  JCODE  FOR  ALL  THEMES  NOT  INCLUDED 
IN  THE  TOPICS  SELECTED.. .FOR  TOPICS  SELECTED,  WRITE  ALL  THEMES  IN 
EACH  MINOR  TOPIC  ON  THE  DISC  UNITS  REPRESENTING  EACH  SELECTED  TOPIC 

IF (LTOPIC. EQ.  1 )  GO  TO  123 
IFIIC0UN.NE.2I  GO  TO  300 
123  L- 0 

DO  220  I=1,NMAJ 
L=L*1 

READ(LDICT ,22) ( NAMEM (L , KP ) , KP=1 , 5) 

KZ=NAMEM (L ,5 )  $KNT(I)=L 

DO  210  J=1,KZ 
L=L*1 

READ (LOICT ,22) (NAMEM<L,KP> ,KP=i,5l 
NMINOR=NAMEM(L»5) 

RE AD ( LOICT ,23) (NMAJORCLK) , LK=1, NMINOR ) 

IF (NTOPIC(I) . EQ. 0)  202,205 

202  DO  203  LK=1, NMINOR  v 

KK=NMA JOR(LK) 

203  JCODE ( KK)  =  0 
GO  TO  210 

205  WRITEM)  (NMA  JOR  UK)  ,  LK  =  1 ,  NMINOR  ) 

210  CONTINUE 

220  ENOFILE  I 

C  IF  SELECTING  VARIABLES  ANO  PRODUCING  A  COUNTRY  PROFLE  BY  VARIABLE, 

C  READ  VARIABLE  DICTIONARY  ANO  STORE  TITLES  IN  NAMEM 
C  ANO  THE  THEMES  WITH  THEIR  RANKS  ARE  STORED  ON  DISC. 

C 

300  IF (LTOPIC. EQ .2  J  GO  TO  221 
IF (ICOUN  «NE. 3 )  GO  TO  489 

221  NOISC= 1 

CALL  SKIPFILE  (LOICT) 

DO  330  I=1,NVAR 

RE AD (LOICT, 22)  (NAMEM (I, J) ,J=1,5) 

301  L  =  NAME  M ( 1 , 5 ) 

RE  AO (LOICT ,20 )  (  (KTHEME (K,J) , J=1 , 2) , K=1  ,L ) 

IF(NTOPIC(I) .NE. 1)330, 305 
305  WRITE (NO ISC)  ((KTHEME(K.J) , J=l,2 ) , K  =  1 « L ) 

ENDFILE  NOISC 
NDISC=NOISC+l 
330  CONTINUE 

c 
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SKIP  TO  APPROPRIATE  TYPE  OF  PROFILE  REQUESTED 

469  IF (ITOPIC-1)  490,3999,6000 
490  IF(ICCUN-2)499, 2500, 3000 


COUNTRY  PROFILE  LISTING  COUNTRIES  WITH  THE  FREQUENCY  OF  THEIR  REHARKS 


499  DO  1000  1=1 , NCOUN 
OO  531  L=1,MTIM£ 

BUFFER  IN(LU,1» (NFREQt 1,L> , NFRE Q (NKA X , L  > ) 

500  IF (UNIT ,LU)500,501 

501  CONTINUE 

IF (N AC  ON (1,3) J  1000,1000,502 

502  NPAGE=  NPAGE+ 1 

WRITE (LOUT, 14)  ( NCL AS S ( K ) , K= 1 , 2) , NP AGE , ( N ACON ( I , J) , J= 1 , 2 )  ,  ( N AHE  T  (  L ) 
l»L=l,KTIMtl 
NL INE= 11 
DO  550  K=1,NMAX 
00  551  LL= 1, MT IME 

551  NFREQ(K,LL)=NFkEQ(K,LL)*JCODE(K> 

L  =  0 

00  552  L L= 1 , KT IME 
KZ=NTI ME (LL) 

NFRE Q ( K, LL>= NFRE Q(K,KZ> 

IF (NFREQ(K, LL) ,NE. 0)  L=1 

552  CONTINUE 
IF(L.EQ.O)  GO  TO  550 

503  WRITE ( LOUT ,15)  K, (NAME (K,L) , L  = 1 , 6 ) , ( NF RE Q ( K , LL ) , LL= 1 , KTI ME > 

NL INE  =  NL INE*  1 

IF  INLINE, GE. 55)  CALL  HE AOEP ( NLI NE , N PAGE , I , LOUT , ITOPI C ) 

550  CONTINUE 

CALL  HEAOER( NLINE, NPAGE,I ,LOUT,  I TOPIC) 

1000  CONTINUE 

GO  TO  6000 


COUNTRY  PROFILE  BY  MAJOR  AND  MINOR  CATEGORIES 


2500  OJ  2600  1=1, NCOUN 
DO  250  1  L= 1, MT I  ME 

BUFFER  IN(LU,  1  )  <NFREQ( 1,L) , NFRE Q  ( NMA X , L ) I 
2502  1F(UNTT,LU)2602,2501 

2501  CONTINUE 

2561  IF(N AC  ON (I, 31)2600, 2600, 25 62 

2562  NP AGE=  NPA&E+ 1 

WRITE ( LOUT ,32) (NCLASS(K),K=1,2> , NPAGE , ( N ACON ( I , KK ) , KK=1 , 2 J , ( NA MET ( 
1  J)  *  J  =  1  ,  KTI  ME  ) 

NLINE=7 

00  2575  J= l , NM A J 
JJ=KNT ( J) 

IF (NTCPIC ( J) )  2575,2575,2563 
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2563  WRITE! LOUT  *12)  J,  <NAHEH<JJ<LI ,  L=l,4) 

NLIN£=NLINE*2  srewino  j  $NMINCR=NAMEH< UJ.5) 

00  2570  11=1 »NMIN0R 

FLAG! I I ) =0  $L= J J* II  $KL=NAMEM!L,5) 

READ  <  J ) ( NMAJOR ( LK) , LK= 1 , KL  ) 

2565  00  2564  LK=1 «  KL 
LZ=NMA JOR!  LK I 

00  2571  LL=1 *MTIME 

2571  NFREQ!LZ,LL)=NFREQ!LZ,LL)  *JCOO£!LZ) 

LA=0 

00  2572  LL=1 • KTIME 
KZ=NTI ME (LL ) 

NFREQ!LZ,LL)=NFREQ!LZ,KZ) 

IF  <NFREO  (LZ , LL  ) • NE . 0 )  LA=1 

2572  CONTINUE 
IF<LA.EQ.O>  GO  TO  2564 

IF <FLAG< II »> 2566,2566, 2559 

2566  WRITE<LOUT ,17) II , ( NAMEM (L « LL ) , LL=1 , 4) 

NlINE=NLIN£+1  SFLAG!II)=1 

2568  IF  (  NL1 NE .G  E. 55 )  CALL  ME AOEK < NLI NE ,NP AGE , I , LOUT , I  TOPIC  I 

2567  WRITE <LOUT, 33) < N AME (LZ ,LP > , LP=1 , 6) , LZ, (NFREQ < LZ , LL ) , LL= 1 , KTIHE ) 
NLINE=NLIN£+1 

2564  CONTINUE 
2570  CONTINUE 
2575  CONTINUE 

CALL  HEAOER<NLlNE,NPAGE,I,LOl)T,  I  TOPIC) 

2600  CONTINUE 

GO  TO  6000 


THEME  FREQUENCIES  BY  THEME 


3999  00  4500  1=1, NCOUN 

.  00  4500  KK=1 , MT IME 

BUFFER  IN<LU, 1) <MC0UNT<1) , MCOUNT (NMAX) ) 

4000  IF (UNIT ,LU) 4000,4001 

4001  IF(NACON(I, 31)4500,4500, 4002 

4002  00  4400  J= 1 , NM A X 

4400  NFREQ! J, KK) = NFREQ! J, KK ) ♦MCOUNT < J) 

4500  CONTINUE 
4700  NPAGE=1 

WRITE!  LOUT,  11) (NCL ASS! K) , K=1 ,2)  ,NPAGE,  (NAMET ( J) , J= l , KTIME ) 
NLINE=7 

00  4703  J= 1, MTIME 
KZ=NTI ME (U) 

IF(KZ.NE.O)  NFREQ! I, J) =NFREQ (I, KZ) 

4703  CONTINUE 

OO  4300  1=1, NM A X 

IF (JCOOE (I ))  48  00,48  00  ,4  70  2 

4702  WRITE ( LOUT ,15)  I , ( NAME ( I , J ) , J=1 , 6) , <NF REQ ( I , K) , K=1 , KTIME  ) 
NLINE=NLINE*1 
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IF  (NLI  NE  .GE.  55)  CALL  HE  A  OE  R  (  NL I  NE  ,  NP  A  GE  ,  7  ,  '.0  J1  ,  ’  T  0  P I C  - 

‘♦000  CONTINUE 

CALL  HEA0EK(NLINE,NPAGE,1 , LOUT , I  TOPI C) 

GO  TO  6000 


COUNT  R V  PROFILE  BY  VARIABLE 


3000  00  3600  1= 1 , NCOUN 
DO  300  1  L= 1  *  MT I  ME 

BUFFER  IN(LU,1>  (NFREQtl  ,LI  , N FRE Q  (  NMA Y , L ) ) 

3003  IF (UNIT, LU)3003, 3001 

3001  CONTINUE 

IF (NACON (I ,3 ))  39  0  0,390  0, 30  02 

3002  NPAGE=NPAGE+ 1 

WRITE (LOUT, 32)  (NCLASS( K) ,K=1,2)  , NPAGE ,  (N ACON  !  I ,J)  , J= 1 , 2 )  ,  (NAMET (L ) 
l*L=l,KTIMt) 

NLINE=  7  31 FL  AG  =  0 
DO  3200  J-l.NVAR 
IF(NT0P1C( J) .EQ.O)  GO  TO  3200 
WRITE(LOUT ,28) J, ( NAM EM (J,LK) , LK  =  1 »  4) 

NLINE=  NL INE  +  3  $ KZ=N AME M ( J , 5 )  S I FL AG  =  I FL A G  ♦  1  3RGW INO  I  FLAG 
READ (1  FLAG)  ( (KTHEME  (l,LK> ,LK=1,2) ,L  =  1 ,  <Z> 

DO  3050  K=1,KZ 
LL  =  KTH  EME ( K, 2 ) 

DO  3571  LK=1,MTIM£ 

3571  NFREO(LL,LK) =NFREQ ( LL , LK ) * JC ODE ( LL > 

L=  0 

DO  3572  L  J= 1 , KT I  ME 
LZ  =  N  TI ME (L  J ) 

NFREQ( LL,LJ) = N FREQ ( LL , LZ ) 

IF  <NFREQ(LL,LJ) .EQ. 0)  GO  TO  3572 

MT  ( 1 )  =  I  2MT(2)=J  JMT ( 3 ) - LL  $ MT ( 4 ) =K THE MC ( K, 1 )  SMT(5)=LZ 
LXK=NFREQ(LL ,L J) 

DO  3573  LA=1,LXK 

BUFFER  OUT (LOUTT , 1 ) (MT ( 1) ,MT (5) ) 

3570  IF (UNI T ,LQUTT)3570,3573 
3573  CONTINUE 

L  =  L*  NF  REQ  <  LL ,LJ) 

3572  CONTINUE 

IF (L . EQ. 0)  GO  TO  3050 

304  0  WRITE (LOUT ,26)  KTHEME (K, 1) ♦ (NAME  (LL*KK) , K<  - 1 , 6  > ,  (NFREQ(LL.LZ) ,LZ  =  1 
1 , KTIME ) 

NLINE-NLINEf 1 

IF  (  NLI  NC  .GE.  55  )  CALL  HE  ADER  (  NLI  t.E  ,  NPAGE  ,  I ,  LOUT  ,  I  TOPIC  ) 

3050  CONTINUE 

REWIND  IFLAG 
3200  CONTINUE 

CALL  HEAOER(NLINE, NPAGE ,1 .LOUT, I  TOPIC) 

3900  CONTINUE 

ENDFIlE  LOUTT 


GO  TO  6000 

1  FORMAT (912, 411, 2A8) 

2  FORMAT (IX,*  THE  FOLLOWING  COUNTRIES  HAVE  BEEN  INCLUDED*, 15,*  THRU*, 15) 
1,15) 

3  FORMAT (215) 

4  FORMAT (IX,*  ALL  COUNTRIES  WERE  INCLUOEO*) 

5  FORMAT (IX,*  THE  FOLLOWING  THEME  NUMBERS  WERE  INCLUOEO* , 15, *  THRU*, 

115) 

6  FORMAT (IX,*  ALL  THEME  ARE  INCLUDED*) 

7  FORMAT (IX, *PROFILE  TYPE* , 1 5, *CAN  NOT  BE  USED  WITH  LT0PIC*,I5) 

8  FORMAT (7011) 

9  FORMAT (IX) 

11  FORMAT (1H1,4X,2A8»38X,*PAGE  *, 1 3 , /// , 7 X, *T HEME  NO. *, 10X , *THEME  TIT 
1LE*,34X, ’FREQUENCIES*, //,71X,4(A8,2X) ) 

12  FORMAT (/ ,2X, 1 3 ,2X, 6 A8) 

13  FORMAT (60X»2A8) 

14  FORMAT (1H1,4X, 2A8,38X,*PAGE  *,I 3 ,/// ,2 OX , ’COUNTRY  PROFILE  FOR  *,2A8,//,7X, 
18,//,7X,*THEME  NO. *, 10 X, ’THE ME  TITLE*, 46X, ’FREQUENCY* ,/, 71 X, 4 ( A8, 2 

IX)  ) 

15  FORMAT (9X,I4,7X,6A8,5X,4(I3, 7X) ) 

16  FORMAT (1H1,4X,2A8,38X, *PAGE*, 14,///, 20X,2A8,*(CON  T)*,/) 

17  FORMAT (6X, 12, 2X,6A«t 

18  FORMAT (IX,*  ALL  VARIABLES  OR  MAJOR/MINORS  HAVE  BEEN  INCLUDED*) 

19  FORMAT  (5X,A3,A6) 

20  FORMAT (1615)  V 

21  FORMAT (15, 6A8) 

22  FORMAT (5X,4A8,18X*I5) 

23  FORMAT ( 2014) 

25  FORMAT (10X,* . CONTROL  CARDS....*,//,*  LOGICAL  UNIT  OF  INPUT.*, I 

15,/,*  LOGICAL  .UNIT  OF  THE  DICTIONARIES ..*, 15 ,/ ,*  LOGICAL  UNIT  OF  T 
2HE  OUTPUT. .*,15,/,*  TYPE  OF  COUNTRY  PROFILE. .*, 15 ,/, *  TYPE  OF  THEM 
3E  PROFILE..* ,15,//,*  SELECTION  CRITERION  OPERATING*,/) 

26  FORMAT (10X,I5,2X,6A8,3X,4I8) 

28  FORMAT (/,5X, 15, 2X.4A8,/) 

32  FORMAT (1H1,4X,2A8,38X,*PAGE  * »I 3 ,///,2  OX, ’COUNTRY  PROFILE  FOR  *,2A 
18,// ,71X,4(A8,2X)> 

33  FORMAT  (15X,6  A8  ,  *  (*  ,  14,  *) . *,*»(I3,7X)) 

34  FORMAT (4A8) 

6000  STOP 

ENO 


SUBROUTINE  HEAOFR<  NLI NE, N PAGE , I , LOUT, I  TOPIC) 

COMMON  NAG  ON (160,3) ,NCLASSl2) 

THIS  SUBROUTINE  PRODUCES  THE  TOP  AND  BOTTOM  CLASSIFICATION  lABELS  AS 
HELL  AS  CONTINUATION  HEADERS  AT  THE  TOP  OF  THE  NEXT  PAGE 

IFCNLINE.LT.55)  GO  TO  100 
NPAGE=  NPAGE*- 1 

WRITE ( LOUT, 1 3) (NCLASS(L) ,L=1,2> 

IF(ITOPIC.EQ.l)  WRITE (LOUT, 11) (NCLASS(L) ,L=1,2)  , N P A G E 
IF(ITOPIC.EO.O)  WRITE (LOUT, 16 M NCLASS<  L) ,L  =  1,2)  , NP AGE , (NACON (I , J )  , 

1 J= 1  *  2 ) 

NLINE=7 
GO  TO  150 

100  00  125  K  =  NLl NE , 55 
125  WRITE ( LOUT , 9 ) 

WRITE ( LOUT , 13) (NCLASS(L) ,L=1,2) 

150  RETURN 
9  FORMAT (1 X) 

11  FORMAT (1H1,4X,2A8,3£X,*PAGE  * , I  3 , /// , 7 X , *T HE  ME  NO . * , 1  OX , * T HEME  TIT 
lLEv»34X,*FREQUENCIES*,//»71X,4(Afl,2X>> 

13  FORMAT (60X.2A8) 

16  FORMAT(lHl,4X,2A8,3aX,*PAGE*,I4,///',20X,2A3,*(CON  T  )  *  »  /  ) 


SUMMARIZING  COUNTRY  POSITIONS 


PROGRAM  SCORES 
Purpose 

The  primary  purpose  of  this  program  is  to  calculate  national  scores  (weighted 
averages  of  the  remarks  a  state  has  made)  for  selected  issue -variables.  It  allows  the 
user  to  change  any  data  on  the  issue -variable  tape  and  to  select  the  time  periods  and 
their  weights  for  a  specific  analysis.  Program  SCORES  must  be  run  for  each  special 
analysis  of  up  to  45  is  sue -variables. 

The  secondary  purpose  is  to  produce  a  tape  of  observation  in  a  format  that  can  be 
used  by  the  BIMED34  regression  package  and  to  produce  a  tape  of  national  scores  for 
input  into  the  MBLOCand  VMODEL  programs. 

Method 

The  main  problem  card  is  read  followed  by  the  variable  selection  card  that  selects 
up  to  45  issue-variables  on  which  national  scores  are  to  be  calculated  (these  is  sue -variables 
must  exist  on  the  issue-variable  input  tape).  Then  the  time  period  weights  are  read. 

These  operate  for  all  issue -variables  in  this  run.  (See  WEIGHT  under  dimensioned 
variables.)  Finally,  the  themes  that  appear  in  more  than  one  issue -variable  being 
selected  are  read  into  MUSE.  After  these  control  cards  are  read,  the  dictionary  files 
are  read.  The  country  names  are  read  into  NACON,  the  issue -variable  titles  into 
NAME,  and  the  independent  variables  into  NBLOC.  Finally,  the  changes  to  the  input 
data  are  read  and  NACON(N,3)  is  flagged  with  a  1  whenever  there  is  a  change  to  country 
N's  data. 

The  observations  are  buffered  in  one  at  a  time  from  the  input  tape .  If  the  observation 
is  on  an  issue -variable  being  processed,  the  program  first  determines  whether  it  is  a 
potential  change.  If  it  is,  the  list  of  changes  is  searched  and  the  observation  corrected 
in  the  manner  specified.  The  way  in  which  the  observation  is  handled  depends  upon  the 
weight  of  its  time  period  if  it  is  not  a  change  and  the  frequency  of  mention  if  it  is  a 
change.  By  whichever  method  used,  the  observation  is  cumulated  in  VALUE,  SIZE,  MEAN, 
and  SUM.  If  it  is  not  a  change  and  it  refers  to  a  multiply  used  theme,  the  observation  may 
also  be  cumulated  in  NDOBL. 

After  all  observations  have  been  read  off  the  input  tape,  any  remaining  changes  are 
handled.  The  only  changes  that  would  remain  are  observations  for  countries  that  never 
addressed  the  issue-variables  on  the  input  tape.  These  are  handled  in  the  same  manner 
as  other  changes . 


The  national  score  is  then  calculated  for  each  country  on  each  issue -variable. 
Simultaneously  the  mean  and  standard  deviation  are  calculated  for  each  issue -variable. 

A  BCD  regression  tape  and  a  binary  national  scores  tape  are  written  if  they  have  been 
requested  on  the  main  problem  card.  Finally,  the  national  scores  are  printed  by 
country  and/or  is  sue -variable  depending  upon  the  user's  request. 

Structure  of  the  Output  Tapes 

Two  tapes  are  produced  by  this  program  -  a  BCD  regression  tape  and  a  binary  national 
scores  tape.  The  regression  tape  is  written  in  a  format  acceptable  to  BIMED34.  Seventy 
files  are  written,  one  for  each  variable;  but  as  a  restriction  in  program  SCORES  only 
45  variables  could  have  data.  Each  file  contains  a  different  number  of  records;  the  number 
depends  upon  the  number  of  countries  with  national  scores  for  this  issue-variable.  The 
records  are  organized  by  country  number.  For  each  country  with  data,  a  record  containing 
36  entries  is  written.  The  first  entry  is  its  national  score,  the  second  through  35th  are 
its  discrete  independent  variables  (see  the  users  guide  for  a  description  of  the  6th  file  of 
the  dictionary,  particularly  its  first  34  entries),  and  the  36th  entry  is  the  number  of 
remarks  by  the  country  used  to  calculate  its  national  score.  This  tape  is  written  in  the 
format  F6:2,34F3- 1, F5- 1. 

The  national  scores  tape  has  two  files.  The  first  file  consists  of  the  national  scores 
of  all  countries  on  all  the  issue -variables  followed  by  the  frequencies  of  mention.  The 
issue -variables  appear  in  numerical  order  with  two  records  each.  The  first  record 
contains  the  national  scores  of  all  countries;  the  second,  the  frequencies.  The  second 
file  consists  of  one  record  which  contains  the  number  of  times  each  country  has  mentioned 
a  multiply  used  theme.  The  countries'  frequencies  on  the  first  theme  appear  before  the 
frequencies  on  the  second,  etc. 


Dimensioned  Variables 

There  are  16  dimensioned  variables  in  program  SCORES: 

(1)  VALUE  is  a  matrix  dimensioned  149  by  45.  A  row  represents  a  country  and  a 
column  one  of  the  issue -variables  being  processed.  It  contains  the  national  score  of  a 
country  on  an  issue -variable.  As  the  observations  are  being  cumulated,  VALUE(N,M) 
contains  the  sum  of  the  ranks  of  themes  country  N  has  mentioned  on  the  Mth  issue -variable 
being  processed.  This  is  later  divided  by  the  number  of  observations  by  this  country 
(SIZE)  to  obtain  a  national  score. 

(2)  SIZE  is  a  matrix  dimensioned  149  by  45.  A  row  is  a  country  and  a  column  is  one 
of  the  issue -variables  being  processed.  It  contains  the  number  of  observations  a  country 
has  made  on  each  of  the  issue -variables . 


(3)  MEAN,  dimensioned  45,  contains  the  mean  of  each  of  the  45  possible 
issue-variables.  As  the  observations  are  being  read,  MEAN(M)  contains  the  sum 

of  all  ranks  of  themes  mentioned  by  countries  on  the  Mth  issue -variable  being  processed. 
This  is  later  divided  by  the  total  number  of  observations  (SUM)  to  obtain  a  mean. 

(4)  STD,  dimensioned  45,  is  used  to  calculate  the  standard  deviation  of  each  of  the 
45  possible  issue -variables.  As  the  observations  are  read,  STD(M)  contains  the  squared 
sum  of  the  ranks  on  the  Mth  issue -variable  being  processed.  This  is  later  used  to  cal¬ 
culate  the  standard  deviation. 

(5)  NVAR,  dimensioned  70,  contains  a  flag  for  selecting  up  to  45  of  the  70  issue - 
variables.  If  NVAR(M)  is  1,  variable  M  is  selected;  if  it  is  0,  M  is  not  selected. 

(6)  NAME,  dimensioned  70  by  4,  is  a  matrix  of  is  sue -variable  titles.  For  each 
is  sue -variable,  a  four  field  title  is  stored. 

(7)  NBLOC  is  dimensioned  149  by  35.  A  row  represents  a  country  and  a  column 
represents  one  of  the  discrete  independent  variables.  For  a  discussion  of  these  variables, 
see  appendix  B  of  the  users  guide,  and  particularly  note  the  first  35  variables  in  file  6. 

(8)  NCHANGE,  dimensioned  300  by  4,  is  a  matrix  of  changes  to  the  data.  It  allows 
up  to  300  changes  to  be  read  in.  Each  change  has  four  entries:  (1)  country  number, 

(2)  issue-variable  number,  (3)  rank  within  is  sue -variable,  and  (4)  number  of  mentions. 

After  a  change  has  been  processed,  the  fburth  field  is  set  to  -9  as  a  flag  that  it  has  been 
comp  cted. 

(9)  NACON,  dimensioned  149  by  3,  is  a  matrix  of  country  names  and  country  change 
flags.  For  each  country,  the  first  two  fields  contain  its  name  and  the  third  field  is  a  1 

if  at  least  one  change  will  be  made  to  the  country's  data  and  a  0  otherwise. 

(10)  WEIGHT,  dimensioned  4,  represents  the  weight  to  be  assigned  the  four  possible 
time  periods  on  the  input  tape.  If  WEIGHT(J)  is  0,  all  data  from  time  period  J  is  excluded 
from  this  analysis.  If  WEIGHT(J)  is  1,  all  data  from  time  period  J  is  included.  If  WEIGHT(J) 
is  2  (e.g.),  all  data  will  be  included,  but  it  will  be  entered  twice  (e.g.).  Any  positive 
integer  or  zero  weight  can  be  assigned. 

(11)  SUM,  dimensioned  45,  represents  the  total  number  of  observations  on  each  of 
the  45  possible  issue -variables  being  processed. 

(12)  MUSE,  dimensioned  10  by  2,  contains  up  to  10  multiply  used  themes.  For  each 
theme,  the  number  is  followed  by  one  of  the  issue-variables  being  processed  that  this  theme 
is  in. 

(13)  NDOBL  is  dimensioned  149  by  10.  A  row  represents  a  country  and  a  column 
represents  one  of  the  10  possible  multiply  used  themes.  The  matrix  contains  the  number 
of  times  a  country  has  said  one  of  these  themes. 

(14)  JCODE,  dimensioned  1600,  serves  two  purposes.  First,  it  is  temporary  storage 
of  the  themes  within  issue -variables  and  their  ranks.  Second,  it  flags  the  themes  that  are 
used  more  than  once.  JCODE(M)  is  1  when  theme  M  is  a  multiply  used  theme  and  0 
otherwise. 


(15)  MCOUNT,  dimensioned  5,  is  the  temporary  storage  of  the  five  components  of  an 
observation  that  is  buffered  in  from  the  input  tape.  The  five  entries  are  (1)  country  number, 
(2)  issue -variable  number,  (3)  theme  number,  (4)  rank  of  the  theme  within  this  issue -variable, 
and  (5)  time  period  in  which  this  remark  was  made  (1-4). 

(16)  BLANK,  dimensioned  149,  contains  a  zero  in  each  field.  It  is  used  to  fill  the  national 
scores  output  tape  with  a  zero  for  each  issue-variable  not  processed. 

Operational  Effects  of  System  Changes 

This  program  depends  upon  the  issue -variable  tape  (produced  by  PROFLE)  and  four 
dictionary  files  -  country,  theme,  issue -variable  and  independent  variable  files.  Assuming 
that  their  structure  and  format  remain  the  same,  the  following  changes  to  the  dictionary 
files  can  be  handled  by  changing  these  variables: 

If  the  number  of  countries  exceeds  149,  VALUE,  SIZE,  NBLOC,  NACON, 
and  NDOBL  must  be  redimensioned. 

If  the  number  of  issue-variables  exceeds  70,  LMAX  and  KVAR  must  be 
increased  and  NVAR  and  NAME  must  be  redimensioned. 

If  the  maximum  theme  number  exceeds  1600,  MAXTHM  will  have  to  be 
increased  and  JCODE  redimensioned. 

If  the  number  of  independent  variables  exceeds  34  or  others  are  to  be  used, 

MAXB  may  have  to  be  increased,  NBLOC  redimensioned,  and  formats  6  and  38  changed. 

Apart  from  dictionary  file  changes,  it  is  possible  that  in  the  future  the  input  tape  will 
contain  more  than  4  time  periods.  If  this  occurs,  MTIME  will  have  to  be  increased, 

WEIGHT  redimensioned,  and  format  1  perhaps  changed.  An  increase  in  time  periods 
means  that  programs  MATRIX  and  PROFLE  would  have  been  expanded  as  well. 

In  addition,  there  are  internal  changes  that  do  not  affect  other  programs.  If  more 
than  300  changes  are  required,  NCHANGF,  can  be  redimensioned  without  affecting  other 
programs.  If  the  number  of  multiply  used  themes  exceeds  10,  MUSE  and  NDOBL  will 
have  to  be  redimensioned  and  program  MAXPAC  changed  slightly. 

Program  Listing 

The  listing  for  program  SCORES  follows. 
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PROGRAM  SCORES 

COMMON  VALUE (149,45) .SIZE (149 ,45) .MEAN (45) , STD (45) .BLANK (149) 

01  ME  NS  I  ON  NVAR  (70) .NAME  (70,4)  ,N BLOC (  14 9 , 35 ) , NCH AN GE (300,4) 
DIMENSION  NAC0N(149«3)  .WEIGH  (4)  ,SUM<45)  .MUSE  (10, 2) 

DIMENSION  ND03L ( 149, 10) .JCODE(lbOQ)  ,MC0UNT(5) 

TYPE  REAL  NBLOC  ,  ME  AN ,N008L 
TYPE  INTEGER  WEIGHT, SUM 

INITIALIZE  VARIABLES.. .REAO  MAIN  PROBLEM  CARD. VARIABLE  SELECTION 
CARO,  WEIGHTS  ANO  MULTIPLY  USEO  CAROS 

MAXB  =  3  5  $M  AX  THM  =  16  0  0  $MTIME  =  4  $LMAX=7Q  $KVAR=70 

READ  5.NC0UN.L CUTT, LIN, I TAPE.LCICT.NDO UB.LCHANGE.LREG.LT APE, J VAR, J 
1COUN 

READ  3. (NVAR(I) ,I=1,KVAR) 

REAO  1,  (WEIGHT  (I)  ,  1  =  1,  MTIME)  -  -  -  — - . .  • 

PRINT  1,  (WEIGHT  (I)  »I=1,MTIME)  . 

IF (NDOUB.NE. 0)  REAO  5 , ( (MUSE ( I , J ) , J= 1 , 2 ) , I = 1 , ND OUB ) 

REAO  COUNTRY,  VARIABLE  ANO  INDEPENDENT  VARIABLE  DICTIONARIES 

i 

00  27,1  =  1, NC CUN  -  •  / 

NACON(I,3)=0  $BLA  NK ( I )  =  0 •  . 

27  REA0(L0ICT,13) (NACON(I , J) , J=l,2)  \ 

00  39  M= 1 , 3  ,  ,  \  /' 

39  CALL  SKIPFILE  (LOICT)  ‘  \  1  ' 

n=  i  /  :  \  ‘  ' 

00  50  1  =  1  ,KV  AR  '  '  '  - 

REA0(L0ICT,4> (NAME  (I,J> , J= 1 , 4) , NTHEME 
NTHEME=NTHEME*2  -•  /■  \ 

REAO(LOICT, 15) ( JCODE (M ) , M=1 , NTHEME)  -  \ 

15  FORMAT (8  (15, 15)  )  /  /  I 

IF(NVAR(I) >50,50,41  /  /  j 

41  NVAR(I)=N  -  !  T  / 

n=n*i  c: ✓  V  • 

50  CONTINUE  -  --  - '  "  • 

KVAR=N-1 

00  40  M= 1 , 2 

40  CALL  SKIPFILE  ( LDICT I 
00  37  K= 1, NCOUN 

37  REA0(L0ICT ,38  )  ( ( NBLOC ( K , M) ,M  =  2,MAXB) ) 

DO  51  I  =  1 , MA  XTHM 

51  JCODE (  I )  =0 

00  52  1=1, NDOUB 
M=  MUSE (1,1) 

52  JCODE ( M ) =1 

00  59  1=1, NCOUN 
DO  48  J=l, 10 
48  NOOBL ( I , J) =0 
00  59  J= 1 , KV AR 


oonn  o  o  o  o  n  o  o  ooo 


MEAN  ( J  )‘=0  .  $ V  ALUE ( I «  J )  =  0 •  SSI  2E  <  I ,  J)  =0  .  $SUM=0 

59  S  T  0  <  J )  =  0  . 

RE  AO  CHANGES  TO  THE  INFUT  TAPE 

00  55  1=1,  LCHANGE 

READ  2  « (NCHANGE  (I,  K) , K=l,4) 

PRINT  2  , (NCHANGE (I ,K),K=1«4) 

J=NCHANG£(I, 1» 

55  NACON  ( J, 3)  =  1 


RE  AO  AN  OBSERVATION  ANO  CHECK  WHETHER  IT  BELONGS  TO  A  VARIABLE 
BEING  PROCESSED. .. IF  IT  IS, IS  IT  ONE  THAT  IS  CHANGING 


60 

62 

61 


.  66 


63 

69 

69 

70 
80 


/ 


/ 


BUFFER  IN (LIN, 1) (MCOUNT(l) , MCCUNT<5>) 

IF(UNIT, LIN) 62,61,100  -  - 

ICC=MCOUNT(l)  SIVAR=MCOUNT <2>  $ITHEME=MCOUNT <31 

IRANK=MCOUNT (4)  SITIME--MCGUNT  (5)  . . . 

K=NVAR  ( I  VAR)  Vj 

IF(NVAR(IVAR))60,60,66 
KFLAG=0  l  '■  \ 

ITHE=0  \  VV  /} 

IF < NAC ON ( ICC  *  3 ) . NE  .  0 )  63,69  n\ 

I  j  \ 

YES  IT  IS  CHANGING. .SEARCH  LIST  OF  CHANGES  ANC  SUBSTITUTE  CHANGE 


// 


l 


\ ! 


00  64  1=1, LCHANGE  / 

IF(ICC.NE.NCHANGE(I,1) )  GO'  TO  64  \ 

IF(IVAR. NE. NCHANGE (1,2 »)  GC  TO  64 
IRANK=NCHANGE<I,3»  $ITHE  =  I  SKFLAG=NCHANGE  (1,4) 

CONTINUE  •  /  /  .  \ 

/  '  !  >  \  \ 

OETERMI NE  HEIGHT  TO  BE  ASSIGNED  THIS  OBSERVATION  AND  FILL  THE  MATRIX 
BY  HEIGHTI NG  8Y  THE  EMPHASIS  CRITERION  FOR  THI^  T,I  ME  PERIOD 

/  rj-:i  /■'  v' 

LX=W£IGHT(ITIME> - /  - - ^ 

IF(KFLAG)  60,80,70 
NCHANGE(ITHE*4)--9 


LX  =  KFL  AG 
DO  67  1=1, LX 

VALUE < ICC, K)= VALUE (ICC, K> ♦ FL OAT ( IRANK) 
SIZE<ICC,K>=SIZE<ICC,K>*-1. 

MEAN  (K I  =  ME AN (K) +FLOAT( IRANK) 

STO(K»=STO(K) ♦ (FLO AT (IRANK) ’FLOAT (IRANK) ) 
SUM  <  K) =SUM(K)+1 
IF(LX.EQ.KFLAG)  GO  TO  67 
IF(JCOOEdTHEME)  .EO.O)  GO  TO  67 
M= JCODE < ITHEME)  $  MM=MUSE ( M, 2) 

IF (IVAR. EQ.MM)  N008L d CC  ,  M >  =  NCO BL ( ICC , M ) ♦ 1 . 
CONTINUE 
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F 


GO  TO  60 

AFTER  REAOING  ALL  OBSERVATION  ARE  THERE  ANY  CHANGES  LEFT  TO  00 


$IRANK=NCHANGE(I,3)  $1 CC=NCH ANGE ( I , 1 > 


100  DO  90  1  =  1,  LCHANGE 

IF  ( NCHANGE (1,4))  90  ,90.81 

81  LX=NCH ANGE  (1,4) 

I V  AR  =  NCH ANGE (1,2) 

K=NVAR (IVAR) 

00  82  J=1,LX 

VALUE (ICC, K)= VALUE ( ICC , K  M-  FL 0 AT (IRANK) 
SIZE (ICC.K)=SIZE  (ICC,K)*1. 

MEAN <K>=ME AN ( K) *FLCAT( IRANK) 

STO(K) =  STO ( K ) ♦ (FLOAT ( I R ANK ) *  FLO  A T ( I RAN K ) > 

82  SUM(K) =  SUM (K ) ♦ 1 

90  CONTINUE  .  •-  „ 


CALCULATE  NATIONAL  SCORES  FOR  EACH  VARIABLE  BY  COUNTRY... 
CALCULATE  THE  MEAN  AND  STANOARD  OEVIATION  AND  SAMPLE  SIZE. ..PRINT 


OL  110  J  =  1 , K V A  R 

DO  109  1  =  1  .NCCUN  / 

IF  (dZE  (  I,  J)  .NE.O.)  VALUE  (I,  J)  =  VALUE(I,  J) /SIZE  (I,  j) 

109  COM  INUE  .  ,  / 

110  CONTINUE  /'•  :  i'.  !  1  / 

00  120  J  =  1,KVAR  */  f  \  x  ;  |  |  / 

IF (SUM(J) .EQ.O)  GO  TO  120 

ST  0 ( J) =SQR  T ( (STC ( J ) - ( (MEAN ( J) *MEAN(J>) /SUM (J>) )/(SUM(J>-l> ) 
MEAN(J)=MEAN (J)/SUM(J) 

120  CONTINUE  _ - 

LQ  =  0  / 

PRINT  131  / 

DO  135  J  =  1 ,L  MAX  / 

IF(KVAR(J).EO.OI  GO  TO  135 
LQ=L  Q* 1 

PRINT  132, J, MEAN (LQ) ,ST0(L0) ,SUM(LQ) 

135  CONTINUE 


I 


.  b 


i  \ 

/  A  \ 


\ 


\ 


\ 

V: 


WRITE  THE  REGRESSION  INPUT  TAPE. .IF  REQUESTED 
THEN  WRITE  THE  NATIONAL  SCORES  TAPE  IF  REQUESTEO 

IF  (LREG.EQ.O >  GO  TO  200 
DO  150  I=1,LMAX 
K  =  NV AR ( I )  $L 0=  0 
IF (NVAR( I) .EQ.O) 150, 142 

142  00  143  J=l, NCCUN 
IF(VALUE(J,K) .EQ.O.)  GO  TO  143 
LQ=LQ* 1 

WRITE(LOUTT, 6)  VALUE ( J,K) , ( NSLOC ( J, JK> , JK=2,MAXD> , SIZE( J,K) 

143  CONTINUE 


noo  n  nn  nnn 


PRINT  5,I,LQ 
150  ENCFILE  LOUTT 

200  IF  (LTAPE".  £Q.  0)  GO  TO  .TOO 
00  225  J=1,LMAX 
KK=NVAR( J) 

IF(KK.LE.O)  201,219 

201  BUFFER  OUT (I T APE , 1 ) < 8L ANK ( 1 > , BL A NK (NCOUN > > 

202  IF<UNIT,ITAPE»  202,203 

203  BUFFER  OUT ( I  TAPE , 1 ) < BL ANK < 1 > , BL A NK (NCOUN > ) 

20  A  IF (UNIT, ITAPE)  204,225 

219  BUFFER  OUT  (I  TAPE  ,  1 )( VALUE  ( 1 ,  KK)  ,  VALUE  (  NCOUN ,«  >> 

220  IF(UNIT,ITAPE) 220, 221 

221  BUFFER  OUT ( ITAPE , 1 ) ( S I ZE ( 1 ,KK> , SI ZE (NCOUN, KK >1 

222  IF(UNIT,ITAPE)222,225 
225  CONTINUE 

ENOFILE  ITAPE  , -  - -  - 


IF(ND0U3.LE.  0)  GO  TO  227  ‘  . 

BUFFER  OUT (ITAPE, 1 ) (NQOEL (1,1) ,NOOBL (NC0UN,N00U8) >  / 

226  IF  (UNIT, ITAPE)  226,  227  /  / 

227  ENOFILE  ITAPE  i  U  j  / 

\  \\  .  ''  / 

PRINT  NATIONAL  SCORES  BY  COUNTRY. .. IFx REQUESTED 

300  IF(JCOUN.EQ.O)  GO  TO'  400.--  /  j.\  H  \  Z 

RE  HI  NO  LIN  //  :  |\\  I  \  / 

DO  350  1=1 ,NCCUN  /  \  !'  \\  i  ./ 

PRINT  9,  (NAC0N(I,J)  ,  J=  1,2)  |i  ' .  ']  1/ 

00  340  J=1  , L MAX  /  \  ‘  '  \  /  • - 

IF (NVAR(J) J 340,340,301  \'J  /  /  \ 

301  LQ=N VA  R  ( J)  '  \ 

PRINT  10,  J, (NAME(J,KZI , K Z= 1, 4 ) , V AL UE (I , L Q ) , S IZ E (I,LQ> 

340  CONTINUE  ,  /  1  l  /  \\  I 

350  CONTINUE  z  \  /  \  / 


1  /L\\ 

V  /r-A 


PRINT  NATIONAL  SCORES  BY  ISSUE-VARIABLE.  .-.IF  REQUESTED 


400  IF (JVAR.EG.O)  GO  TO  500 
DO  450  J  =  1 , L  MA  X 
LQ=NVAR(J) 

IF.(NVAR(J)  >  450,450,401 

401  PRINT  11, J, <NAME(J,KZ) ,KZ=1,4> 

00  440  1  =  1, NC CUN 

IF (VALUE (I.LQI ,NE. 0. )  PRINT  12, (NACON(I , K> , K=l, 21 , VALUE ( I , LQ) , SIZE (I , LQ I 
1(1, LQ) 

440  CONTINUE 
450  CONTINUE 


FORMAT  STATEMENTS 


1  FORMAT (712  I 


2  FORMAT  <515  > 

3  FORMAT (4011) 

4  FORMAT <5X,4A8,18X,I5) 

5  FORMAT <16151 

6  FORMAT (F6«2«34F3.1,F5,  U 

7  FORMAT (20F6. 2) 

0  FORMAT (45F5. 2) 

9  FORMAT </////10X,*PROFIL£  FOR  *»  A  8  * A7 ,//, 3 8X , ’NATIONAL 
1,/,39X,*SC0RES  OBSERVATIONS*,/) 

10  FORMAT <2X*I2«X,4A8,2(F10.3»3X)) 

11  FORMAT ( *  VARIABLE*, 12,*  *,4A8,//) 

12  FORMAT (5X,A8,A6,F10.3,F7.0) 

13  FORMAT (5X,A8»A6) 

38  FORMAT (4X,34F3,1, /✓////) 

131  FORMAT  <1H1,*  VARIABLE  MEAN  STO  SIZE  * 

132  FORMAT (5X*I5»2F10.2«I1Q)  / - 

500  end  x  —  X  x  f  . 


PROGRAM  BIMED34 


BIMED34  is  a  standard  statistical  program  available  at  CNA  which  estimates  a 
multiple  linear  regression  equation  in  a  stepwise  manner.  BIMED34  was  selected  because 
it  provides  numerous  feature  .hat  are  necessary  for  an  LOS  issue  analysis.  It  allows 
regression  problems  on  different  data  bases  to  be  stacked  back  to  back;  it  can  compute 
a  weighted  regression;  it  can  force  the  regression  equation  through  the  origin;  and  it 
produces  machine -readable  output. 

The  version  of  BIMED34  used  by  the  LOS  project  differs  from  the  CNA  version  in  the 
way  in  which  the  independent  variable  numbers  are  punched  on  the  output  cards.  The  CNA 
version  assigns  variable  numbers  1-N  to  its  N  output  cards.  The  LOS  version  assigns  the 
original  variable  number.  That  is,  if  independent  variable  3  is  in  the  equation,  the  LOS 
version  will  punch  a  3  as  its  variable  number,  whereas  the  CNA  version  will  punch  a 
K  when  variable  3  is  the  Kth  variable  in  tne  equation. 

Since  MBLOC  and  VMODEL  will  read  these  output  cards  and  match  the  variable 
numbers  punched  with  the  corresponding  independent  variable  data,  the  LOS  version  is 
essential  to  normal  operations  of  these  two  programs.  Any  modifications  to  BIMED34 
should  be  made  to  the  LOS  version. 

If  a  listing  of  BIMED34  is  requested,  a  CNA  systems  programmer  should  be  consulted. 
The  program  is  on  a  load  and  go  tape. 

PROGRAM  MBLOC 

Purpose 

The  functions  of  this  program  are  to  calculate  regression  estimates  and  preferred 
positions  for  all  countries,  to  calculate  mean  preferred  positions  and  standard  deviations 
for  the  34  blocs  or  groups,  and  to  produce  a  series  of  summary  reports  of  group  positions 
on  selected  issue -variables .  As  many  as  45  variables  can  be  processed  in  a  single  run. 

Method 

After  the  main  problem  and  issue -variable  selection  cards  are  read,  the  deck  of  beta 
coefficients  is  read  and  placed  in  BETA.  Then  the  names  of  blocs  are  read.  Finally,  the 
country  and  independent  variable  files  are  read  off  the  dictionary  tape. 


Hodson  Thomber,  "Manual  for  (B34T,  8  Mar  66)  A  Stepwise  Regression  Program," 
Technical  Report  6603,  Center  for  Mathematical  Studies  in  Business  and  Economics, 
University  of  Chicago.  Copies  are  available  from  the  Information  Document  Center  of 


CNA. 
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For  a  selected  issue -variable,  the  national  scores  and  frequencies  of  mention  for 
all  countries  are  buffered  in  from  the  input  tape  and  placed  in  MATRIX(country  no. ,  1 
and  4).  Then  a  regression  estimate  and  a  preferred  position  are  calculated  for  each 
country  and  placed  in  MATRIX( country  no. ,  2  and  3). 

For  each  bloc,  the  data  from  all  its  members  is  cumulated  in  MBLOK  and  a  mean 
and  a  standard  deviation  are  calculated  from  their  national  scores  alone,  estimates  alone 
and  preferred  positions.  These  statistics  are  then  printed  in  a  summary  table  in  which 
the  blocs  appear  in  increasing  order  by  mean  preferred  position.  At  this  point  in  the 
program,  a  more  detailed  report  by  bloc  can  be  produced;  if  requested,  the  members  of 
each  bloc  are  listed  in  order  of  their  preferred  positions.  Then  the  program  returns  to 
process  another  selected  issue-variable. 

Dimensioned  Variables 

There  are  eight  dimensioned  variables  in  program  MBLOC: 

(1)  KVAR,  an  array  dimensioned  45,  contains  the  numbers  of  the  is  sue -variables 
being  processed.  The  variables  are  listed  in  numerical  order. 

(2)  BETA  is  a  matrix  dimensioned  45  by  34.  Each  row  represents  an  issue -variable 
being  processed;  each  column  represents  a  discrete  independent  variable  (or  bloc 
affiliation).  The  matrix  contains  the  beta  coefficient  from  BIMED34  for  the  issue -variable 
and  bloc . 

(3)  BNAME,  an  array  dimensioned  34,  contains  a  one  field  name  for  each  of  the 
independent  variables  or  blocs , 

(4)  NACON,  dimensioned  149  by  2,  is  a  matrix  of  country  names.  Each  name  is 
assigned  two  fields. 

(5)  BLOC  is  a  matrix  149  by  34.  A  row  represents  a  country  and  a  column  an 
independent  variable  or  bloc.  This  matrix  contains  a  1  if  the  country  is  a  member  of 
the  bloc  and  a  0  otherwise. 

(6)  MATRIX,  dimensioned  149  by  4,  contains  all  the  data  on  the  issue -variable 
being  processed.  There  are  four  entries  for  each  country:  (1)  national  score, 

(2)  regression  estimate,  (3)  preferred  position,  and  (4)  frequency  of  mentions. 

(7)  MBLOK,  a  three  dimensional  matrix  34  by  4  by  2,  contains  all  the  aggregate 
statistics  of  the  34  blocs  on  the  issue -variable  being  processed.  For  each  bloc  J,  MBLOK 
is  as  follows: 

(J,  1, 1)  =  mean  of  the  national  scores  of  its  members 

(J.  2)  =  standard  deviation  of  the  national  scores  of  its  members 

(J,2, 1)  =  mean  of  the  regression  estimates  of  its  members 

(J,2,2)  =  standard  deviation  of  the  regression  estimates  of  its  members 

(J, 3 , 1)  =  mean  of  the  preferred  positions  of  its  members 
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(J,3, 2)  =  standard  deviation  of  the  preferred  positions  of  its  members 
(J,4, 1)  =  number  of  members  with  national  scores 
(J,  4,  2)  =  total  number  of  members. 


(8)  NORDER,  dimensioned  149,  serves  as  a  flag  when  blocs  or  countries  are  reordered. 
If  NORDER(K)  is  1,  bloc  or  country  K  has  been  written  on  the  printout.  If  it  is  0,  bloc  or 
country  K  will  be  printed  whenever  it  becomes  the  next  in  the  order  list. 

Operational  Effects  of  System  Changes 

This  program  depends  upon  the  national  scores  tape  from  program  SCORES  and  the 
country  and  independent  variable  files  of  the  dictionary  tape.  Assuming  that  their 
structure  and  format  remain  the  same,  the  following  modifications  can  be  handled  in  this 
program  by  changing  these  variables: 

If  the  number  of  countries  exceeds  149,  BLOC,  MBLOK,  MATRIX,  NACON, 
and  NORDER  will  have  to  be  redimensioned. 

If  the  number  of  discrete  independent  variables  exceeds  34,  BLOC,  MBLOK, 
BETA,  and  BNAME  will  have  to  be  redimensioned  and  NB  increased.  Furthermore, 
format  11,  which  reads  independent  variables  off  the  dictionary  tape,  will  have  to  be 
changed.  (Note:  If  format  is  changed,  SCORES  and  BIMED34  must  be  changed 
accordingly. ) 

It  is  possible  that  in  the  future  the  regression  analysis  may  involve  continuous  as  well 
as  discrete  variables.  If  so,  MBLOC  must  be  changed  substantially  followed  by  corresponding 
changes  in  SCORES,  BIMED34,  and  VMODEL. 

Program  Listing 

The  listing  of  program  MBLOC  follows. 


O  O  OO  OOOO  O  O  O  O 


PROGRAM  MBLOC 

DIMENSION  BLOC (149, 3 A)  ,MBLOK (34,4.2) ,MATRIX< 149, 4) ,N0R0ER (149) 
DIMENSION  KVAR  (45) .BETA (45,34) , 8NflME(34) , NACON ( 1 49 , 2 ) 

•  TYPE  REAL  MATRIX ,MBL0K 
TYPE  INTEGER  SUMM 

RE  AO  MAIN  PR08LEM  CARO,  VARIABLE  SELECTION  CARO, BETAS, NAMES  OF  BLOC 
THEN  READ  THE  COUNTRY  AND  INDEPENDENT  VARIABLES  FILES... 


READ  fl  ,LOICT  ,  LI  N  ,N  VAR  ,  NCOL'N ,  SUMM 
READ  1, (KVAR(J) ,J=1,NVAR) 

NB=34  $KCOUNT=0 
OO  40  I=1,NVAR 
DO  30  M=1  ,NB 
30  BETA(I,M»=0. 

READ  l.NBETA  - - - •• 

OO  35  M  =  1,NBETA  "  ...  "x  /'  V" 

READ  9,NUMB,VBETA  /  ,  X  \  .1- _ - 

NUMB=NUMB-1  '  W 

35  BETA(I*NUMB)=VBETA 

40  PRINT  10, < (M,B£TA(I,N) ) , M  =  l, NB) 

READ  3 » ( 8NAME ( I ) , 1  =  1 ,N 8 ) 

READdOICT  ,4)  <  (NACON  (I,  J)  ,  J=  1,2  )  ,  1  =  1 ,  NCOUN )  / 

OO  41  M=l, 5  ,  X 

41  CALL  SKIPFILE(LOICT) 

READ ( LDICT  « 11 ) ( ( BL OC (I , KJ , K= 1 ,N B ) , 1= 1 , NCOUN) 


READ  NATIONAL  SCORES  AND  SALIENCES  FOR  ALL  COUNTRIES 
ON  THE  VARIABLE  BEING  PROCESSED  -  .  \ 


IN0EX=0  /  //  .  /  \ 

OO  100  11=1, NVAR  /'  !  / (\ 

31  OO  25  1=1, NCOUN  / 

OO  25  J=  1, 4  -  •  \  // 

25  MATRIX  ( I ,  J)  =  0  •  ‘  '  -  -  ■  \ 

BUFFER  IN  (LIN, 1)  (MATRIX (1,1) , MA TRIX (NCOUN , 1 >  > 

26  IF(UNIT, LIN) 26,27 

27  BUFFER  IN (LI N, 1 ) (M ATRI X ( 1, 4) , MAT RIX ( NCOUN, 4) ) 
26  IF  (UNIT , LIN) 26,29 

29  INDEX=INOEX+l 

IF(INOEX.NE.KVARdl)  )  GO  TO  31 


CALCULATE  THE  REGRESSION  ESTIMATE  AND  PREFERREO  POSITION  FOR  EACH 
COUNTRY  ON  THE  VARIABLE  BEING  PROCESSEO... 


DO  211  1=1, NCOUN 
OO  200  K=l,NB 

200  MATRIX(I,2)=MATRIX(I,2)f(BLGC(I,K>*BETA(II,K>> 

211  MATRIX (1*3)* ((MATRIX (1,1 > ’MATRIX (1,4)) ^MATRIX (1,2) )/ (MATRIX (I, 4)*1 

1.) 


CUMULATE  THE  OATA  FOR  EACH  BLOC  IN  MBLOK  AND  CALCULATE  THE  MEAN 
AND  STANOARD  DEVIATION  OF  EACH  BLCCS  DATA  FOR  NATIONAL  SCORES  ONLY 
REGRESSION  ESTIMATES  ONLY  AND  PREFERRED  POSITIONS... 

00  600  1=1, NB 

00  600  J=l,4 

DO  600  K=1 , 2 
600  MBLOK ( I , J, K) =0 • 

00  400  1  =  1*  NCCUN 
DO  400  J= 1 *NB 

IF (BLOC(I.J) . EQ. 0. )  GO  TO  400 

IF  CM ATRIX ( I , 1 ) .NE.O.I  MBLOK ( J,4 , 1) =MBL OK ( J ,4 , ll+l. 

MBLOK < J,4,2)=MBL0K< J, 4,21+1. 

00  410  K  =  1 *  3 

MBL0K<J,K,1)=MBL0K<J,K,11+HATRIX(I,K>  - . . . 7 

410  MBL0K(  J*  K.2)  =MBLQK(J,K»2)+  (MATRIX  ( I »  K)  *M ATRIX  ( I  *  K)  |  / 

400  CONTINUE  /  . .-N \  \  >1 -  - 

00  5  00  J=1,NB  j  7  vA  \  /  / 

00  500  K=1 « 3  \  / 

0aS=MBL0K(J,4, 2)  \  /  /  / 

IF (K.EQ. 1)  0BS=MBL0K(J,4,li  ' - ^  / 

MBLOK ( J, K.2) =SQRT ( ( MBLOK C J, K, 2> - C MBLOK C J, K, 1) *MBL0K ( J , K, 1 >> /OB S> / C 
10BS-1.  >)  - . -  .  !  .  \  .  \  / 

500  MBL0K(J,K,1J=MBL0K(J*K»1)  /08S  '  \  ,  / 

/  •  [  J  \  •  I  j  / 

PRINT  SUMMARY  TABLE  OF  BLOCS  IN  INCREASING  ORDER  BY  THE  MEAN  OF 
THEIR  PREFERRED  POSITIONS....  x 


PRINT  6,  KV  AR 1 1 1 )  - -</  /\  \ 

DO  501  KL=1,N6  /(  \  \ 

501  NORCER (KL) =0  \  \  ) 

DO  502  K  =  1  *NB  /  \  /  .  \  / 

08S=999.  *  - ~/  \  i  \\  J 

oo  503  l=i,n8  7  7  / 

IF(MBL0K<L,3,1> .LE.OBS.AND.NORDER(L) .EO.O)  504,503 
504  08S=MBLCK(L, 3, 1) 

NCOUNT=L 
503  CONTINUE 

PRINT  7.BNAME (NCOUNT), ( ( MB LO K (NCOUNT , KK, LL) ,LL=1,2> ,KK=1,4> 
N0R0ER(NCCUNT>=1 

502  CONTINUE 


IF  REQUESTED,  PRINT  FOR  EACH  BLOC  A  LIST  OF  IT  MEMBERS  AND  THEIR 
PREFERRED  POSITIONS  IN  INCREASING  ORDER... 


IFCSUMM.EO.l »  GO  TO  100 
00  1900  JJ=1 ,NB 

PRINT  1801,KVARCII>,BNAMECJJI  .MBLOK < JJ ♦ 3 , l > 
00  1800  1=1, NCCUN 


o  o  o 


1800  NOROER (11=0 

N08S=M9L0K(JJ,4»2) 

.  NCOUNT =0 

00  1802  1=1,  NCOUN 
IE  (BLOC (Ii JJ) . E Q . 0 . )  1602.  1803 
1803  NCOUNT  = NCOUNT* 1 

IF < KC CUNT. EG. 1) 1804,1805 
1604  NOROER <NCOUNT)=I 
GO  TO  1802 
1805  KZZ=NCOUNT-l 
KZ=0 


00  1850  JK=1,KZZ 
L=NOROER(JK) 

IF(KZ.NE.O)  GO  TO  1850 
IF (HAT RI X ( I, 3) .LT. MATRIX  CL,3))KZ=JK 

CONTINUE  . - ^  z - - - - 7 

IF(KZ.EQ.O)  GO  TO  1804  ...  \  /  <;  ' 

LL=NCOUNT  /  \  J l—, 

00  1807  KK=KZ , KZZ  '  '  A  N  /  ' 

NOROER  <LL)  =NOROER <  LL-1 J  • 

LL=LL-1  \  \  j  / 

NOROER  (KZ) =1  *7 

continue  \  v  yyr...  / 

00  1860  JK=1 .NOBS  j  .  *’  \  /' 

L=KOROER(JK)  ‘ 

PRINT  1861, (NACON(L.LL) ,Lt?=l,2> .MATRIX (L, 11 .MATRIX (L  « 2) .MATRIX  CL,  3 

n  \  i  i  \ -j  ;■  ,  ■' 

CONTINUE  /  \  j  !  \  I  />• - 

CONTINUE  \U  '-•/ 

CONTINUE  /  ^ - A  \ 

/\  /■,  \  \ 

FORMAT  STATEMENTS  7  j  / /\  \  j 

y  \  /  '  ’  \  i 

FORMAT  <40121  - -  w  \  tf~  \  ■  / 

FORMAT  (8  X,  El  2.4  J!  '-T.:  VIZ  I!  /  \‘-y 

FORMAT  <1 0 A8)  - - X  '  - 

FORMAT (5X.A8.A6) 

FORMAT ( 1H1 ,*  THE  FOLLOWING  MEANS  ANO  STANDARD  DEVIATIONS  BV  BLOCS 

1  ARE  FOR  VARIABLE  * , 14 , / // , 1 X , * N AME  OF  DATA  DATA  EST 

2  EST  SCORE  SCORE  DATA  UN*,/,3X ,*9LOC  MEAN  STD 

3  MEAN  STO  MEAN  STD  SS  SS*,//> 

7  F0RMAT(IX,A8,3X,6CF6.2,2X) ,2F6. 0) 

8  FORMAT (515) 

9  FORMAT (6X.I2.E12.4) 

10  FORMAT (9(13, F10. 1) ) 

11  FORMAT <4X, 34F3 . 1  ,//////) 

1801  FORMAT (1H1 ,3X, ’SCORES  CF  COUNTRIES  ON  V ARI ABLE* , I  3 , // 3X , *THAT  BEL 


1850 


1807 


1802 


I860 

1900 

100 


1NG  TO  THE  BLOC*. A8,//, 10X,*BLOC  MEAN  I S* , F 6 . 2 ,// » 3X , *COUNTRY 
2AT  A  ESTIMATE*,//) 

1861  FORMAT (1X.A8.A3.3F10.3) 


REWINO  LIN 


ENO 
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FORECASTING  OUTCOMES 


PROGRAM  VMODEL 
Purpose 

This  program  forecasts  outcomes  on  selected  individual  issue -variables.  For  each 
issue-variable,  medians,  best  and  worst  cases,  and  the  preferred  choice  within  a  pair  of 
alternatives  can  be  produced.  In  addition,  the  program  produces  a  tape  that  is  used  by 
program  MAXPAC  to  analyze  packages  of  issues. 

Method 

After  the  main  problem  and  issue-variable  selection  cards  are  read,  the  country  and 
independent  variable  files  are  read  off  the  dictionary  tape.  For  each  of  the  selected 
issue -variables,  the  beta  coefficient  deck  and  input  records  containing  the  national  scores 
and  frequencies  of  mention  for  all  countries  are  read.  These  enable  the  program  to 
calculate  a  regression  estimate,  a  residual  (the  difference  between  a  country's  national 
score,  if  it  exists,  and  its  estimate),  and  a  preferred  position  for  each  country.  If  the 
estimate  exceeds  the  bounds  of  the  is  sue -variable,  the  estimate  is  set  equal  to  the  upper 
or  lower  bound.  The  output  table  contains  all  of  these  statistics  and  medians  of  the 
national  scores,  estimates  and  preferred  positions.  The  program  returns  to  process 
the  next  selected  issue -variable.  The  program  then  turns  to  best  and  worst  cases.  For 
each  case,  the  program  calculates  the  number  of  countries  with  preferred  positions 
within  the  range  specified.  It  lists  the  countries  with  their  preferred  positions  and  a 
tally  of  the  number  of  states . 

Then  the  matrix  ISSUE,  which  contains  the  preferred  position  and  frequency  qf  mentions 
for  each  country  on  each  of  the  selected  issue -variables,  is  standardized  by  subtracting  the 
mean  of  the  issue -variable  from  each  of  the  preferred  positions  and  dividing  this  difference 
by  the  standard  deviation  of  the  issue -variable.  This  is  printed  and  then  written  on  the 
output  tape  in  binary.  From  this  point  on  in  the  program,  ISSUE  represents  the  normalized 
or  standardized  preferred  positions . 

The  last  section  of  this  program  calculates  the  outcome  on  an  issue  when  countries 
are  forced  to  choose  between  two  alternatives.  For  each  such  forecast,  the  two  alternatives 
are  read  and  then  standardized  in  the  manner  described  above.  A  utility  equation  is  used 
to  determine  which  of  the  two  alternatives  each  country  prefers.  After  utility  scores  have 
been  calculated  for  all  countries,  a  summary  outcome  table  is  produced  and,  if  requested, 
a  list  of  countries  with  their  utility  scores  is  printed .  This  list  of  countries  is  ordered 
by  intensity  of  preference.  The  program  returns  to  process  another  pair  of  alternatives 
on  this  or  another  issue -variable. 

For  a  discussion  of  the  formulas  used  throughout  this  program  and  the  way  in  which  the 
results  are  interpreted,  the  programmer  should  refer  to  the  users  guide. 


The  output  tape  from  this  program  is  used  as  input  to  MAXPAC,  which  analy:  es 
packages  of  issues,  and  VALID,  which  compares  the  forecasts  with  'outside'  forecasts. 

It  is  written  in  binary  and  contains  four  kinds  of  records.  The  first  record,  70 
fields  filled  with  O'sor  counters,  contains  a  list  of  the  issue-variables  selected  for  this 
run.  The  second  record  contains  the  number  of  issue-variables  and  countries  processed 
in  this  program  that  will  appear  on  this  output  tape.  The  third  record  contains  a  mean 
and  a  standard  deviation  for  each  of  the  selected  issue-variables.  The  fourth  series  of 
records  contains  the  matrix  ISSUE  (which  is  seen  under  Dimensioned  Variables). 

Dimensioned  Variables 

There  are  12  dimensioned  variables  in  program  VMODEL: 

(1)  BLOC,  a  matrix  dimensioned  149  by  35,  contains  the  country  number  followed 
by  the  34  discrete  independent  variables  for  each  of  the  149  countries .  For  a  definition 
of  these  34  variables,  see  the  discussion  of  dictionary  file  6  in  the  users  guide. 

(2)  BETA,  an  array  dimensioned  35,  contains  the  beta  coefficients  for  the  issue - 
variable  being  processed. 

(3)  MEDIAN,  an  array  dimensioned  3,  contains  the  median  national  score,  median 
estimate  and  median  preferred  position  for  the  is  sue -variable  being  processed. 

(4)  NOBS,  an  array  dimensioned  45,  contains  the  number  of  countries  with  national 
scores  on  each  of  the  45  possible  issue-variables  that  can  be  processed  in  a  single  run. 

(5)  KVAR  has  70  fields,  one  for  each  existing  issue -variable  number.  It  contains 
flags  for  selecting  issue -variables  for  this  run.  Originally  it  is  read  as  a  series  of  0's 
and  l's,  where  a  1  means  that  the  issue -variable  is  selected  and  a  0  that  it  is  not. 
However,  the  program  converts  all  the  l's  to  counters  so  that  KVAR(N)  =  J  when 

is  sue -variable  N  is  the  Jth  one  selected  for  processing. 

(6)  NACON,  dimensioned  149  by  2,  is  a  matrix  of  country  names.  Each  country 
is  assigned  a  two  field  name  from  the  country  dictionary. 

(7)  MEAN,  dimensioned  45,  is  used  in  the  calculation  and  ultimately  the  storage  of 
the  means  of  the  45  possible  issue-variables. 

(8)  STD,  dimensioned  45,  is  used  in  the  calculation  and  ultimately  the  storage  of 
the  standard  deviations  of  the  45  possible  issue -variables. 

(9)  VOTE,  an  array  dimensioned  3,  contains  the  number  of  states  that  prefer 
alternative  1,  that  are  indifferent,  and  that  prefer  alternative  2. 

(10)  CURMIN,  an  array  dimensioned  3,  is  used  in  the  calculation  of  the  median 
national  score,  median  estimate  and  median  preferred  position.  In  each  case,  CURMIN 
represents  the  current  minimum  score  found  in  the  list. 
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(11)  SCORE,  an  array  dimensioned  149,  contains  the  scores  for  all  149  countries 

that  were  stored  on  the  disc.  The  scores  could  be  national  scores,  estimates,  or  preferred 
positions,  depending  upon  the  disc  from  which  they  were  taken. 

(12)  ISSUE,  a  three  dimensional  matrix  149  by  2  by  45,  contains  the  standardized 
preferred  position  and  frequency  of  mentions  of  each  country  on  each  of  the  45  possible 
issue-variables  being  processed.  These  two  statistics  appear  as  a  set  for  all  countries 
on  one  issue-variable  at  a  time. 


jerational  Effects  of  System  Changes 


Program  VMODEL  depends  upon  the  national  scores  tape  and  the  country  and  indepen¬ 
dent  variable  files  of  the  dictionary  tape.  Assuming  that  their  structure  and  format 
remain  the  same,  the  following  minor  changes  to  the  die; ;  jnary  files  can  be  handled  by 
changing  the  following  variables: 


If  the  number  of  countries  exceeds  149,  ISSUE,  BLOC,  MACON,  and  SCORE 
will  have  to  be  redimensioned. 


If  the  number  of  independent  variables  used  in  the  regression  analysis 
exceeds  34  or  the  variables  in  the  regression  are  not  the  34  discrete  independent 
variables  listed  in  the  2nd  through  the  35th  position  in  the  sixth  file  of  the  dictionary, 
format  4  must  be  changed.  Furthermore,  if  more  than  34  variables  were  processed 
through  BIMED34,  MAXB  must  be  set  equal  to  the  number  of  variables  plus  1  and 
BLOC  and  BETA  must  also  be  dimensioned  one  more  than  the  number  of  variables 
processed. 

If  the  number  of  issue -variables  ever  exceeds  70,  MAXV  must  be  increased 
and  KVAR  redimensioned. 


Apart  from  these  changes  to  the  dictionary  files,  it  may  become  desirable  in  the 
future  to  process  more  than  45  issue-variables  in  a  single  run.  If  tins  is  to  be  done, 
ISSUE,  NOBS,  MEAN,  and  STD  would  have  to  be  redimensioned  and  MAXI  increased. 
The  programmer  is  cautioned  that  expanding  the  number  of  issue-variables  would 
serve  little  purpose  without  a  corresponding  change  in  programs  PROFLE,  SCORES, 
MBLOC,  and  MAXPAC. 


ram  Listint 


The  listing  of  program  VMODEL  follows. 
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I  UNCLASSIFIED 


FORECASTING  OUTCOMES  OF  MULTILATERAL  NEGOTIATIONS: 
COMPUTER  PROGRAMS  VOLU.  .  <U>  CENTER  FOR  NAVAL  ANALVSES 
ALEXANDRIA  VA  INST  OF  NAVAL  STUDIES.  .  K  W  GOUDREAU 
OCT  76  CRC-298-V0L-2  N00014-76-C-0001  F/G  9/2 


NL 


oooo  oooo 


PROGRAM  VMOOEL 

DIMENSION  ISSUE (149,2,45) , BLOC ( 1 49 , 3 5) , BET A ( 35 ) , ME 01 AN < 3 > 

COMMON  MEAN (45) ,  STO <45 ), NVAR, NCOUN 
01  HENS  ION  N08S<45) ,KVAR(70) ,NACLN<149,  2) 

DIMENSION  VOTE  (3 ) . CURMIN ( 3 l , SCOkE ( 149 ) 

TYPE  REAL  MI  N,  MAX,  ME  AN  ,  I  SSUE  ,  MRESI 0 ,  ME  DI  AN 
TYPE  INTEGER  BLANK, VOTE 

INITIALIZE  MAXIMUM  VALUES ...  READ  MAIN  PROBLEM  CARO,  VARIABLE 
SELECTION  CARO,  AND  THE  DICTIONARIES 

MAXB=3 5  $MA  X V=70  $MAXI=45 
DO  90  M=1 , M AXI 

90  NOBS (M )  =  0 

REAO  1 , NVAR, NRANGE ,NSINGL£«LOICT«  LUIN, NOME D, NOLIST, NCOUN 
REAO  2,  (KVAR(M) ,M=1,MAXV) 

INUM  =0  \ 

00  95  M=1,MAXV 
IF  (KVAR(M)  .IE.  0)  GO  TO  95 
INUM  =  INUM  ♦  1 
KVAR(M)  =  INUM 

95  CONTINUE 

BUFFER  OUT (46,1) (KVAR(1),KVAR(MAXV)) 

96  IF(UNIT, 46)96, 97 

97  REAO  (L0ICT.3)  ((NAC0N(K,#)«M=1,2) ,  K  =  l, NCOUN) 

00  100  M=1 «  5 

100  CALL  SKIPFILE  (LDICT) 

DO  85  K=l, NCOUN 

85  REAO  (LDICT, 4)  (BLOC (K,M) , M=1,MAXB) 

READ  DATA/SALIENCES  AND  BETAS,  CALCULATE  ESTIMATES,  RESIDUALS  ANO  MEDIANS 
CREATE  ISSUE 

/  . 

11  =  0  •  - . . '  .  ' 

DO  155  1=1, NVAR 

DO  105  .  M=  1,  MAXB  . 

105  BETA  (M)  =  0. 

REAO  12,  NBETA,  RANKS 
00  110  M=l, NBETA 
REAO  5 , NUMB, VBETA 
110  BETA (NUMB)  =  VBETA 

PRINT  6,  ( <M ,  BETA  (M) ) ,  M=1,MAXB> 

115  BUFFER  IN(LUIN,1)(ISSUE(1, 1,1), ISSUE (NCOUN, 1,1)) 

116  IF (UNIT ,LUIN)116,117 

117  BUFFER  IN(LUIN,1)(ISSUE(1,2,I),ISSUE(NC0UN,2,I)) 

118  IF(UNIT, LUIN) 118,120 
120  11=11+1 

IF (KVAR( II) .LE.O)  GO  TO  115 
IF (NOMED.NE.  1)  PRINT  8,11 
MRESIO  =  0. 
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on 


00  130  K*1,NC0UN 

.  EST  *  0.  %  OATA  *  ISSUE  (K.l.II 

IF  (OATA  .NE.  0.)  NOBS (I)  =  N0BS(II  ♦  1 
00  125  H-l.MAXB 

125  EST  *  EST  ♦  <8L0C(K,M)  •  BETA(MI) 

ISSUE  (K.l.II  =  ((0ATA*ISSUE(K»2*II)  ♦  EST)/(ISSUE(K.2,II  *1.» 

IF(NOMEO.EQ. U  GO  TO  126 

RESIO® (OATA- EST I 

IF  (OATA  .EQ.O.I  RESIO  =  0. 

PRINT  9,  (NACON(K.KK) , KKal,2) .DATA, EST , ( ISSUE ( K.H, I) «M*1. 21 .RESIO 
IF (RESIO.LT. 0. I  RESIQaRESID* ( -1 • I 
HRESIO  =  HRESIO  ♦  RESIO 

126  IF  (EST  .LT.  II  EST  =  1. 

IF  (ISSUE  (K.l.II  .LT.  1.)  ISSUE  (K.l.II  »  1. 

IF  (EST  .GT.  RANKS)  EST  a  RANKS 

IF  (ISSUE  (K.l.II  .GT.  RANKS)  ISSUE  (K.l.II  a  RANKS 

IF (NONEO.EQ. 1 I  GO  TO  130 

IF (OATA.NE. 0. I  WRITE(1)0ATA 

NRITE(2I  EST 

NRITE ( 3 1 ISSUE (K. 1. I) 

130  CONTINUE 

IF (NONEO.EQ. 1)  GO  TO  155 

00  135  M=l.  3 

ENOFILE  M  " 

135  REMIND  M 

00  150  M=  1,  3 
NCOUNT  =  NCOUN 

IF  (M  .EQ.  II  NCOUNT  =  NOBS(I) 

00  137  K=l. NCOUNT  X 

137  READ (Ml  SCORE (K)  \ 

DO  165  KK=1, NCOUNT 

CURMIN(MI=+999.  $NUMC=0 
00  140  K=l, NCOUNT 

IF  (SCORE  (K)  .GT.  CURMIN  (HI  I  GO  TO  140 
CURHIN  (Ml  *  SCORE  (K) 

NUMC=K 

140  CONTINUE 

SCORE (NUMCI=  *999. 

IF  (KK  .NE.  ( ( NCOUNT tZ I *11 1  GO  TO  145 
MEOIAN(M)  *  CURNIN(M) 

GO  TO  150 
145  CONTINUE 
150  RENINO  N 

COUNT  «  NOBS  (II 
HRESIO  =  HRESIO  /  COUNT 
PRINT  ll.(MEOIAN(H) .Hal,3) .HRESIO 
155  CONTINUE 

BEST  WORST  ANALYSIS 


uoo 


159  00  175  IN0EX=1 ,  NRANGE 
READ  12,  INUM, MIN, MAX 

IF  (KVAR( INUM)  ,EQ.  0)  GO  TO  175 
IF  (MIN  ,EQ.  0.)  PRINT  13,  MAX, INUM 
IF  (MAX  .EQ,  0.)  PRINT  14, MIN, INUM 

IF  (MIN  .NE.  0.  .AND.  MAX  .NE.  0.)  PRINT  15 , MIN, MAX, I NUM 
la  KVAR(INUM)  S  NCOUNT  =  0 
00  170  K=1 , NCOUN 

IF  (MIN  .EQ.  0.  .AND.  ISSUE(K,1,II  .GT.  MAX)  GO  TO  170 

IF  (MAX  .EQ.  0.  .AND.  ISSU£(K,1,I)  .LT.  MIN)  GO  TO  170 

IF  (MIN  .NE.  0.  .AND.  MAX  .NE.  0.)  160,165 

160  IF(ISSUE(K,1,I)  .GT.  MAX  .OR.  ISSUE  (K,1,I)  .LT.  MIN)  GO  TO  170 

165  NCOUNT  =  NCOUNT  ♦  1 

PRINT  21,  ( NACON ( K,M) ,  M=l,2),  ISSUE(K,1,I) 

170  CONTINUE 

PRINT  16,  NCOUNT 
175  CONTINUE 
C 

CALCULATE  NORMALIZED  PREFERENCES  ANO  PACKAGING  SALIENCES 
C 

PRINT  25 

00  185  1=1, NVAR  '  — 

MEAN  (I)  =0.5  STO(I)  =  0. 

00  180  K=l, NCOUN  v 

MEAN  (I)  =  MEAN (I)  *  ISSUE(K,1,I) 

180  STO(I)  *  STD (I )  ♦  (ISSUE(K,1«I)*ISSU£(K,1,I)) 

COUN  a  NCOUN 

ST0(1) =SQRT ( (STD(I)-((MEAN(I) *MEAN ( I) ) /COUN) ) / (COUN-1 . > > 

185  MEAN(I)  =  ME  AN (I )/COUN  , 

00  190  K=l, NCOUN 
00  189  1=1, N VAR 

ISSUE  (K«1«I )  =  (ISSUE (K,l,I)-MEAN(I))/STO(I) 

189  ISSUE( K ,2, I )  =  ISSUE  (K,2,I)  ♦  1. 

190  PRINT  17,  (NAC0N(K»M),M=1,2),  ( ( I SSUE ( K, MM  ,  I ) •  MM=1,2) , I=1,NVAR) 
PRINT  24 

PRINT  18,  ( (I, ME  AN (I) ,  STD< I) ) , I  =  1,NVAR) 

BUFFER  0UT(46,1)  (NVAR, NCOUN) 

191  IF(UNIT, 46)191, 192 

192  BUFFER  OUT (46, 1 ) (MEAN ( 1 ) , STD (NVAR) ) 

193  IF(UNIT, 46)193, 194 

194  00  199  1=1, NVAR 

BUFFER  OUT (46, 1 ) (I SSUE ( 1 , 1 , I ) , ISSUE (NCOUN, 2 , I ) ) 

198  IF(UNIT, 46)198, 199 

199  CONTINUE 

SINGLE  PACKAGES 

00  230  INDEX  =l,NSINGLE 
RE AO  12,  INUM, ONE, TWO 
IF (KVAR  (INUM)  .EQ.  0)  GO  TO  230 


PRINT  19,  INUM*ON£»TWO 
I-KVAR (INUM) 

ONENOR  =  ( ONE-MEAN ( I ) > /STO ( I > 

TWONOR* (TWO-MEAN (I ) )/STO(I) 

00  1*95  M=l,3 
195  VOTE  ( M »  =  0 

DO  215  K=1  *  NCOUN 

SCOP£<  K)  =  <  (ONENOR-ISSUE  (K.l.II)  *  (ONENOR-ISSUE  (Kfl,X  m-C(TWONO 
1R-ISSU£(K,1,I))  *  (TWONOR-ISSUE  (K,1,I)  ) ) 

IF  (SCORE(KM  200,205,210 
200  VOTE (1 1  =  VOTE(l)  ♦  1 
GO  TO  215 

205  VOTE  (21  =  VOTE  (2 )  *1 

GO  TO  215 

210  VOTE  (31  =  VOTE  (3)  ♦  1 

215  CONTINUE 

PRINT  20,  VOTE (1) *  ONE,  VOTE(2>,  V0TE(3)»TW0 
IF  (K0LIST,EQ«1)  GO  TO  230 
DO  225  KK=1, NCOUN 

CURMAX  =  -999. 

NUMC  a  0 

DO  220  Ksl, NCOUN 

IF  (SCORE (K )  .LT.  CURMAX)  GO  TQ  220 
CURMAX  a  SCORE (K)  $  NUMC  *  K 

220  CONTINUE 

PRINT  21,  (NACON(NUMC.M) ,H*1»2> *  CURMAX 
225  SCORE  (NUMC)  a  -999. 

23Q  CONTINUE 

FORMAT  STATEMENTS 


1  FORMAT (12,213,412,13*11) 

2  FORMAT  (0011) 

3  FORMAT (5X.A8.A6) 

‘ ,  FORMAT (F4.0,34F3.1 »//////) 

5  FORMAT  (6X,I2,E12.4) 

6  FORMAT  (9  (I3,F10.1)) 

7  FORMAT (20F6. 2) 

8  FORMAT (1H1,21X,*REAL  ESTIMATE  COMBINEO  SS  RESIDUAL  ON 
1  VARIABLE*, 15,/) 

9  FORMAT (3X, A8 , A6, 3F1Q . 3 ,F8 . 0, FI t . 3 ) 

11  FORMAT (//,2X,*ME0IANS*,8X,3F1Q«3»F11,3) 

12  FORMAT  (12, 2F5.0) 

13  FORMAT ( 1H1, *  THE  FOLLOWING  COUNTRIES  HAVE  SCORES  BELOW*,  F4.1,*  ON 
1VARIABLE*,I5,/) 

14  FORMAT (1H1,*  THE  FOLLOWING  COUNTRIES  HAVE  SCORES  ABOVE*,  F4.1,*  ON 
1 VARIABLE*, 15,/) 

15  FORMAT (1HI,*  THE  FOLLOWING  COUNTRIES  HAVE  SCORES  BETWEEN* ,F4. I ,* AN 
10*»F4. 1,*  ON  VARIABLE*, 15,/) 

16  FORMAT (//,2X, 15,*  COUNTRIES  ARE  LISTEO  ABOVE*) 


17  FORMAT (2X,A0*A7*(1O(F6.2»F4,O))  ) 

10  FORMAT (15, 2F0. 2) 

19  FORMAT  (IX,* - *,//,*  ON  VARIABLE*, 15,*  A  COM 

2PARIS0N  BETWEEN  RANK*,F5.1,*  ANO  RANK* , F5. 1 , /) 

20  FORMAT (15,*  COUNTRIES  PREFER  *, F5 . 0 , /, 15 , •  COUNTRIES  HAVE  EQUAL  PR 
2EFERENCE*,/,I5,*  COUNTRIES  PREFER  *,F5.0,///I 

21  FORMAT (3X,A6,A6*F1Q. 3) 

24  FORMAT ( 1H1 ,*  THE  MEANS  ANO  STANOARO  DEVIATIONS  ARE*,//) 

25  FORMAT  (1H1,*  THE  NORMALIZED  VALUES  ARE*,/) 


PROGRAM  MAXPAC 


Purpose 

This  program  and  its  subroutine  perform  two  functions.  First,  they  forecast  outcomes 
on  packages  of  issues,  by  providing  a  tally  of  the  number  of  countries  preferring  each  of 
the  two  input  packages  and  a  measure  of  how  intense  states'  preferences  are.  Second, 
they  produce  a  series  of  packages  that  are  more  popular  than  the  input  package,  to  the 
voting  body  as  a  whole  and  to  the  United  States  in  particular. 

Method 

After  the  main  problem  card  is  read,  the  normalized  tape  from  VMODEL  is  buffered 
in.  If  unclassified  frequencies  of  mention  are  to  be  used,  the  national  scores  tape  from 
SCORES  is  buffered  in,  and  if  multiply  used  themes  are  involved,  the  second  file  is 
buffered  in  from  the  national  scores  tape.  Then  the  country  dictionary  is  read  and  the 
scores  and  frequencies  of  all  countries  on  the  issue -variables  being  processed  are 
printed. 

Then,  a  set  of  packages  at  a  time,  the  program  reads  the  is  sue -variables  it  includes 
and  the  positions  of  both  packages  on  these  issues.  These  positions  are  normalized  and 
subroutine  PREFER  is  called. 

After  the  epsilons  have  been  read,  the  program  turns  to  its  second  function, 
producing  more  popular  packages  than  the  one  input.  It  processes  one  such  package 
at  a  time,  normalizing  it  and  then  calculating  the  normalized  direction  cosine  of  each 
country  on  each  issue  in  the  package.  After  a  composite  direction  cosine  has  been 
calculated  for  each  issue,  the  program  generates  a  series  of  packages  that  move  away 
from  the  input  package  in  the  direction  calculated.  The  series  is  produced  by  moving 
in  that  direction  at  different  distances  (epsilons).  For  each  epsilon  tested,  subroutine 
PREFER  is  called. 

Subroutine  PREFER  calculates  a  utility  score  for  each  state  for  the  two  packages 
being  compared.  The  sign  of  the  score  determines  which  package  the  state  prefers  and 
the  magnitude  determines  the  intensity  of  its  choice.  The  results  are  printed,  if 
requested,  so  are  the  utility  scores  (in  decreasing  order). 

Dimensioned  Variables 

There  are  15  dimensioned  variables  in  this  program  and  its  subroutine: 

(1)  KVAR  has  70  fields,  one  for  each  existing  issue -variable  number.  Each 
contains  a  flag  for  the  issue -variables  on  the  input  tape;  i.e. ,  KVAR(N)  =  J  when 
issue -variable  N  is  the  Jth  one  on  the  input  tape  and  is  0  when  N  is  not  on  the  t^pe. 
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(2)  MEAN,  dimensioned  45,  contains  the  means  of  the  45  possible  issue -variables 

on  the  input  tape . 

(3)  STD,  dimensioned  45,  contains  the  standard  deviations  of  the  45  possible  issue- 
variables  on  the  input  tape. 

(4)  ISSUE,  a  three  dimensional  matrix  149  by  2  by  45,  stores  the  standardized 
preferred  position  and  frequency  of  mention  of  each  country  on  each  of  the  45  possible 
issue -variables. 

(5)  NACON,  dimensioned  149  by  2,  serves  two  functions.  It  is  temporary  storage 
of  the  unclassified  national  score  and  frequency  of  mention  for  each  country  on  the 
variable  being  processed.  During  most  of  the  program,  it  contains  a  two  field  name 
for  each  country. 

(6)  DOUBL  is  dimensioned  149  by  10.  A  row  represents  a  country  and  a  column 
represents  one  of  the  10  possible  multiply  used  themes.  The  matrix  contains  the 
number  of  times  a  particular  country  has  said  one  of  these  themes . 

(7)  WEIGHT,  dimensioned  10,  contains  the  proportion  of  mentions  of  each  of  the 
multiply  used  themes  that  is  to  be  assigned  to  the  issue -variable  being  processed. 

(8)  PACK,  dimensioned  45  by  2,  contains  the  positions  on  the  45  possible  issue- 
variables  for  the  two  packages  being  processed. 

(9)  FVAR,  dimensioned  45,  stores  the  numbers  for  the  45  possible  issue-variables 
in  the  packages  being  processed. 

(10)  VOTE,  an  array  dimensioned  4,  contains  the  number  of  states  that  (1)  strongly 
prefer  package  1,  (2)  marginally  prefer  package  1,  (3)  marginally  prefer  package  2,  and 
(4)  strongly  prefer  package  2. 

(11)  SCORE,  a  matrix  dimensioned  149  by  3,  contains  the  utility  score  for  package  1, 
that  for  package  2,  and  the  difference  between  the  two,  for  each  country. 

(12)  THETA,  dimensioned  45,  contains  the  composite  direction  cosines  for  the 
45  possible  issue -variables  in  the  package  being  maximized. 

(13)  Z,  a  matrix  45  by  149,  stores  the  direction  cosine  for  each  country  on  each  of 
the  45  possible  issue -variables  in  the  package  being  maximized. 

(14)  ESPLN  is  an  array  containing  up  to  16  user  specified  intensity  weights  which  in 
combination  with  THETA  produce  various  maximized  packages. 

(15)  NUM,  dimensioned  45,  stores  the  direction  cosines  for  the  45  possible 
issue-variables  in  the  package  being  maximized  for  the  United  States. 
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lerational  Effects  of  System  C  hanges 


This  program  is  dependent  upon  the  output  tape  from  VMODEL,  the  country 
dictionary,  and  possibly  the  national  scores  tape  from  SCORES.  If  their  structure 
and  format  remain  the  same,  the  following  modifications  to  them  can  be  handled  by 
changing  the  following  variables: 

If  the  number  of  countries  exceeds  149,  ISSUE,  NACON,  DOUBL,  SCORE, 
and  Z  will  have  to  be  redimensioned. 

If  the  number  of  existing  issue -variables  ever  exceeds  70,  KVAR,  MEAN, 
and  STD  will  have  to  be  redimensioned  and  MAXV  will  also  have  to  be  increased. 

If  the  number  of  issue -variables  being  processed  through  VMODEL  exceeds 
45,  ISSUE,  PACK,  THETA,  NUM,  Z,  and  PVAR  will  have  to  be  redimensioned. 

If  more  than  10  multiply  used  themes  are  processed  through  SCORES,  DOUBL 
and  WEIGHT  will  have  to  be  redimensioned. 

If  more  than  16  intensity  weights  are  necessary,  ESPLN  will  have  to  be 

increased. 

Program  Listing 

The  program  and  subroutine  listings  follow. 


PROGRAM  MAXPAC 

COMMON  VOTE! 4)  .SCORE  <149,  3)  ,PVAR(45)  ,  P  ACK  C45, 2  )  ,  KV  AR  (70  )  .ISSUE  (149 
1.2.45) , NACON (149,2) , ME AN < 45) ,STQ  (45) ,NVAR, NCOUN 
DIMENSION  TH£TA(45)»NUM(45),Z(45,149>»ESPLN(16) .00U8L (149. 1 0 ) , WEI G 
lHT(lO) 

TVPE  REAL  MEAN,  ISSUE,  NACON,  NUM 
TYPE  INTEGER  PVAR 
MAXV  =  70 

READ  MAIN  PROBLEM  CARO  ANO  NORMALIZED  TAPE 

REAO  1,  LUIN,  LOICT,  LUS,  L00U3,  NOOUB,  LIST,  NPACK,  NUS.NMAXP.NEP 
IS 

BUFFER  IN(LUIN.I) (KVAR(l) , KVAR ( M AX V ) ) 

30  IFCUNIT«LUIN)30, 31 

31  BUFFER  IN(LUIN.I) (NVAR, NCOUN) 

32  IFCUNIT.LUIN)32, 33 

33  NVAR=NVAR 

BUFFER  IN  (LUIN, 1 ) (MEAN ( 1) , STD  INVAR) I 

34  IF (UNI T,LUIN)34,35 

35  00  38  Is 1 , NV AR 
NC0UN=NC0UN 

BUFFER  IN(LUIN.I) (ISSUE (1 ,1, I) , I SSUE INCOUN ,2 , I ) ) 

36  IF (UNI T.LUIN)36,38  - 

38  CONTINUE  :  / 

IF  UNCLASSIFIED  SALIENCES^ ARE  TO  BE  USED,  READ  THEM  ANO  SUBSTITUTE 
FOR  EXISTING  SALIENCES 

IF  (LUS  .EG.  0  )  GO  TO  100 
00  50  I*  1 ,  NV  AR 

BUFFER  IN(LUS.l) (NACON (1, 1) ,NAC0N(NC0UN,1) ) 

39  IF (UNIT ,LUS) 39,40 

40  BUFFER  IN (LUS, 1 ) (NACON ( 1, 2) , NACON (NCOUN, 2)) 

41  IF (UNIT , LUS) 41,42 

42  00  45  K=l, NCOUN  / 

45  ISSUE ( K, 2 , I) = NACON ( K, 2 ) 

50  CONTINUE 

IF  MULTIPLY  USED  THEMES  ARE  USEO,  REAO  AND  CALCULATE  NEW  SALIENCE 

100  IF  (L00U9  ,EQ.  0)  GO  TO  150 
CALL  SKIPFILE  (LDOUB) 

BUFFER  IN  (LOOUB.l) ( 00U8L ( 1 ,1) , OOUBL (NCOUN, NOOUB) ) 

101  IF(UNIT, LDOUB) 101,102 

102  DO  110  1=1 ,NVAR 

REAO  8,  (WEIGHT(M),  M=l, NOOUB) 

00  109  K=l, NCOUN 
00  105  M*i, NOOUB 

IF  (WEIGHT(M)  . GE.  0.)  ISSUE  (K,2,I>  =  ISSUE  (K,2,I> 

2 OOUBL  (K,M)  ♦  (WEIGHT  (H>  *  OOUBL  (K,M)  ) 

105  CONTINUE 

109  CONTINUE 

110  CONTINUE 


oo  O o  o  o o o  ouo 


READ  COUNTRY  DICTIONARY  AND  PRINT  NATIONAL  SCORES  ANO  SALIENCES 

ISO  PRINT  2 

DO  120  K=l, NCOUN 

RE AO  IL0ICT.9)  (NACON  (K,M»,  M=1,2I 

PRINT  10*  NACON {  K»  1 1 •  ( (I SSUE ( K, M, I I ,  N=l,2),  I=1,NVAR> 

120  CONTINUE 

PROCESS  ONE  SET  OF  PACKAGES  AT  A  TIME 

00  1000  INQEX  =  l.NPACK 

READ  11, NOVAR,  (PVARdl  ,  I=1,NVARI 
RE AO  12,  ( (PACK  (I, Ml,  I=i,NOVARl,  M=1,2I 
00  184  M  =  l,4 

184  VOTE  CM )  =  0 . 

00  18S  M=l,3 

00  185  K=1 , NCOUN 

185  SCORE  (K, Ml  =0. 

PRINT  13,  (PVAR(I 1,1=1, NOV ARI 
PRINT  14,  (PACKd  ,1)  ,1  =  1, NOV  ARI 
PRINT  15,  (PACKd  ,2),  1=1,  NO  VAR} 

00  200  1=1, NOVAR  ' 

M  =  KVAR  (PVAR (I  I  I  - 

00  150  MM=1,2 

190  PACK  (I,MMI,  =  (PACK  (I.MMI  -  MEAN  (Mil  /STD  (Ml 
200  CONTINUE 

IFLAG=1  v'-A' 

CALL  PREFER (IFLAG, LI  ST, NOVAR, NUS,CEPSI 

1000  CONTINUE  - ; 

/  ,  \  / 

/  ;  .  \ 

MAXIMIZATION  MOOEL  y  ' 

/■  ‘  J 

/  ' 

RE AO  20 , (ESPLN (Ml, M= 1, NEPSI 

00  2000  IN0EX=1,NMAXP  A  \ 

•  READ  11, NOVAR,  (PVARdl  ,1=1, NVARI 
RE AO  12, (PACK(I, 11, 1=1, NO VAR l 
PRINT  21,  (PVARdl,  1=1,  N0VAR1  ' 

PRINT  22,  (  PACKd  «i)  «I  =  1,N0VARI  - 

00  1100  1=1, NOVAR 
M=KVAR  (PVARdl  I 

PRINT  1101,  MEAN(MJ  ,STO(MI  ,  PVARdl 
110  0  PACK  (I,  11  =  (PACKd,  II -MEAN  (Ml  I /STD  (Ml 

CALCULATE  THE  DIRECTION  COSINES/NORMALIZE  THEM 

00  1200  K=i, NCOUN 
00  1200  1=1, NOVAR 
M=KVAR (PVAR( III 

1200  Z(I,KI=ISSUE  (K,2,MI*  (ISSUE  (K,  1,MI -PACKd,  II I 
00  1300  K=l, NCOUN 
SUM=0. 

00  1350  1=1, NOVAR 
1350  SUM* SUM* AOS ( Z (I, K>  > 

00  1360  1=1, NOVAR 
1360  Z(I,K)*Z(I,K)/SUM 
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1300  CONTINUE 
PRINT  18 

00  1370  K=l» NC0UN 

PRINT  19,NAC0N<K,1) ,<Z<I, <1,1=1, NO VAR) 
1370  CONTINUE 

CALCULATE  PHI...SUMMEO  ACROSS  COUNTRIES 
SUMPT=0. 

00  1500  1=1, NOVAR 
THET  A( I ) =0  • 

00  1400  K=l, NCOUN 
1400  TH£TA<I)=THETA(H*Z<I,K> 

1500  SUMPT= SUM PT ♦<THETA(I)*THETA(I) ) 

CALCULATE  THETA  AN0  OPTIMUM  PACKAGE 


DO  1600  I =1, NO VAR 
THETA(I)=THETA<I) /SORT (SUMPT) 

PRINT  23,  <THETA<I), 1  =  1, NOVAR) 

IFLAG=  2 

00  1950  I JK= 1,NEPS 
CEPS=E  SPLN (I JK) 

DO  1650  1=1, NOVAR 

PACK  (I  ,2)=PACK<I»1)*<ESPLN<IJKI*THET4<I)) 
00  1655  M=l, 4 

VOTE<M)=0.  4  . 

00  1660  M=l» 3 
00  1660  K=l, NCOUN 
SCORE ( K, Ml =0 • 

CALL  PREFER (IFLAG, LIST, NO VAR, NUS, CEPS) 
“ONTINUE 

IFCIFLAG.NE.O)  GO  TO  2000 
X=0.  $HS=  0 •  SOEM  =  0. 

00  1960  1=1, NOVAR 

NUM  <11=  THET  A  <  I )  *  SQRT(SUMPT) 

X=X* (NUM<I)*Z(I»  NUS) ) 

WS=HS* <Z<I,NUS)*Z(I,NUS>) 

IF(X.GE.0.»  X=0. 

00  1970  1=1, NOVAR 
NUM<I)=NUMCI)-(<Z(I,NUS)*X)/HS1 
OEM=OEM+(NUM  <11*  NUH  < I » ) 

DO  1980  1=1, NOVAR 

THET  A(I)=NUM(I)/SQRT (OEM) 

PRINT  3001, (THETA(I), 1  =  1,  NOVAR) 

CONTINUE 


FORMAT  STATEMENTS 


1  FORMAT <20131 

2  FORMAT </,*  NORMALIZED  PREFERREO  POSITIONS  AND  SALIENCES*,/) 

8  FORMAT  < 16F5 • 1 ) 

9  FORMAT  < 5X»  A8,  A6) 

10  FORMAT <X,A8, 12  <F 6.2.F4.0),  /,  6X,  12<F6.2,  F4.0),  /,  8X,  12CF6.2, 
2F4 « 0 ) ,  /,  4CF6.2,  F4.0)l 
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5  FORMAT  (12F10.3) 

11  FORMAT  <40121 

12  FORMAT  <  40F2  «  G I 

13  FORMAT (//»  * - *,/,*  VARIABLES  IN  PACKAGES* ,/, <1 3X <1 3 , 191 6)1 

1) 

14  FORMAT  <*  PACKAGE  1=* , < 20F 6 . 3»> 

15  FORMAT  <*  PACKAGE  2  =  * , < 20F 6 . 3  )  » 

IB  FORMAT  < 1H1 ,*  THE  OIRECTIOK  COSINES  AR£*/) 

19  FORMAT <1X,AB,  (14F9. 3 )» 

20  FORMAT <16F5. 0> 

21  FORMAT (1H1,*  BASE  PACKAGE  CONTAINS*,/**  VARIABLES*, 5X, (4013) > 

22  FORMAT  <♦  SCALE  V ALUE S*  ,  2X  ,  < 40F 3 . 0 >> 

23  FORMAT  < 1 X , *  THE  THETA  VALUES  ARE*,/, (14FB. 3) ) 

26  FORMAT  <  20F5, 2J 

1101  FORMAT  <*  WHERE  THE  MEAN  IS  *,F5.2,*  STO  IS  *,F5.2,*  FOR  VAR  *,I4> 
3001  FORMAT <1H1,*  THE  US  PACKAGE  THAT  HE  MOULD  PREFER  IS*,/, (14F9.5 > ) 
END 


SUBROUTINE  PREFER ( IFLAG ,L 1ST, NOV AR ,NUS , CEPS ) 

COMMON  VOTE  1 4), SCORE (149, 3) ,P VAR (45) .PACK (4 5, 2) ,KVAR(70> , ISSUE  (149 
1,2,45) , NACON ( 149 , 2) , ME AN( 45) , STO (45 1 ,NVAR,NCOUN 
TYPE  REAL  MEAN,  ISSUE,  NACON,  NUM 
TYPE  INTEGER  PVAR 

THIS  SUBROUTINE  DETERMINES  WHICH  PACKAGE  EACH  COUNTRY  PREFERS 
IF  REQUESTED,  IT  PRINTS  A  LIST  OF  COUNTRIES  THAT  PREFER  EACH 
PACKAGE 

00  300  K=l*  NCOUN 

00  250  I  =  1,N0VAR 

M  s  KVAR  (PVAR  (I)) 

00  210  MM  »  1,2 

210  SCORE  (K«MM)  =  SCORE  (K,MM)  ♦  (ISSUE  (K,2,M) 

2  *  ((ISSUE  ( K « 1 «  M )  -  PACK (I  *  MM ) )  *  (I SSUE (K, l.M)  -PACK (I, MM)  )  I ) 

250  SCORE  (K.3)  =  SCORE  (K,3)  ♦  ISSUE  (K,2,M) 

SCORE  (K, 3 )  = (SCORE  (K,l)  -  SCORE  (K,2>>/  SC0RE(K,3) 

IF  (SCORE  (K ,3 )  .LE.  1.  .AND.  SCORE  (K,3)  . GE.  0.)  GO  TO  280 

IF  (SCORE ( K, 3 )  .GE.  -1.  .AND.  SC0RE(K,3)  .LE.  0.)  GO  TO  270 
IF  (SCORE (K«  3) )  260,270,290 
260  VOTE ( 1 )  =  VOTE(l)  ♦  1. 

GO  TO  300  •  \ 

270  VOTE  (2)  =  VOTE(2)  ♦  1. 

GO  TO  300  '  / 

280  VOTE (3)  =  VOTE (3)  ♦  1.  /' 

GO  TO  300  -V 

290  VOTE  (4)  =  VOTE  (4)  ♦  '  *1 . 

300  CONTINUE  ' 

IFdFLAG.EQ.  1)  350,325 
325  PRINT  3, CEPS  •  ' 

00  330  1*1 ,NOVAR 
MaKVAMPVAR(I)  )  •  > 

A*MEAMM)  +  (PACK(I,l)*STO(M)) 

B=ME AN (M ) +(PACK(I«2) *STQ ( M ) ) 

330  PRINT  1749,PVAR(I),A,B  '  ,  . 

PRINT  25 , SCORE (NUS , 3 )  '  ■ 

IF (SCORE (NUS,3).LT.O.)  IFLAG=0  - 

350  PRINT  16,  (  VOTE(M)  ,M=1,4)  / 

IF(LIST.EQ.0 )  GO  TO  1000 
DO  500  Kali NCOUN 

CURMAX  =  -9999.  $  NCOUNT  =  0 

DO  450  KK=1, NCOUN 

IF  (SCORE ( KK,3)  ,LT.  CURMAX)  GO  TO  450 

CURMAX  a  SCORE (KK, 3 )  $  NCOUNT  a  KK 

450  CONTINUE 

PRINT  17 , (NACON(NCQUNT  *M)  ,Mal,2) , SCORE (NCOUNT ,3) 

SCORE (NCOUNT, 3) a-9999. 

500  CONTINUE 

FORMAT  STATEMENTS 

3  FORMAT ( //  »  * - *,/,*  PACKAGING  ANALYSIS  CONTAINS  THE  FOLLOWI 

1NG  COMPONENTS  WHEN  EPSILON  IS  *,F6.2,//,*  VAR  NO.  BASE  PACKAGE 
1  MOOEL  PACKAGE*/) 


16  FORMAT (//F5.0»*  COUNTRIES  PREFER  PACKAGE  1*/F5.0»*  COUNTRIES  MARGI 
1  NALL Y  PREFER  PACKAGE  1*,/,F5.Q,*  COUNTRIES  MARGINALLY  PREFER  PACKA 
2GE  2*,/,F5.0,*  COUNTRIES  PREFER  PACKAGE  2*.//> 

IF  FORMAT  CX,2A8.Flii  .2> 

25  FORMAT  <//,*  THE  US  UTILITY  ON  THESE  PACKAGES  ISSFlQ.5,/1 
1749  FORMAT <I5,2F16.5> 

1000  RETURN 
ENO 
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PROGRAM  VALID 


Purpose 

This  program  calculates  a  crude  measure  of  the  degree  of  similarity  between  CNA’s 
forecasts  and  'outside'  forecasts.  Comparisons  can  be  performed  on  45  issue  “variables 
in  a  single  run. 

Method 

After  the  normalized  tape  (output  from  VMODEL)  has  been  buffered  in,  the  'outside' 
forecasts  are  read  and  normalized.  For  each  issue  being  processed,  states'  preferred 
positions  are  compared  with  the  'outside'  forecast  and  the  number  of  countries  with  pre¬ 
ferred  positions  less  than  the  forecast  is  calculated.  This  is  converted  to  a  percentage 
and  a  crude  similarity  measure  calculated  through  the  following  formula: 

( percent  \ 
yl -percent  J 


This  measure  is  printed  and  the  next  issue  processed. 

Dimensioned  Variables 

This  program  contains  five  dimensioned  variables: 

(1)  MEAN,  dimensioned  45,  contains  the  means  of  the  45  possible  issue-variables  on 
the  input  tape . 

(2)  STD,  dimensioned  45,  contains  the  standard  deviations  of  the  45  possible 
issue-variables  on  the  input  tape. 

(3)  ISSUE,  a  three  dimensional  matrix  149  by  2  by  45,  contains  the  preferred 
position  and  frequency  of  mention  for  each  country  on  each  of  the  45  possible  issue - 
variables . 

(4)  KVAR  has  70  fields,  one  for  each  existing  issue -variable  number.  It  contains 
counters  for  the  issue -variables  included  on  the  input  tape;  i.e. ,  KVAR(N)  *  J  when 
issue -variable  N  is  the  Jth  issue -variable  listed  on  the  tape  and  is  0  if  N  is  not  on  the 
tape. 

(5)  PVAR,  dimensioned  45,  contains  the  'outside'  forecast  for  each  of  the  45  possible 
is  sue -variables  on  the  input  tape. 


This  program  depends  entirely  upon  the  structure  of  the  binary  tape  produced  by 
VMODEL.  If  any  changes  are  made  to  it,  the  four  read  statements  must  be  changed. 

If  these  changes  increase  the  number  of  countries,  processed  issue -variables,  or 
existing  issue -variables,  the  following  dimensions  must  be  changed: 

If  the  number  of  countries  exceeds  149,  ISSUE  will  have  to  be  enlarged. 

If  the  number  of  issue -variables  being  processed  through  VMODEL  exceeds 
45,  MEAN,  STD,  ISSUE,  and  PVAR  will  have  to  be  redimensioned. 

If  the  number  of  existing  is  sue -variables  exceeds  70,  MAXV  will  have  to  be 
increased  and  KVAR  redimensioned. 


Program  Listing 

The  listing  of  program  VALID  follows. 


c 

c 

c 

c 


PROGRAM  valid 

COMMON  ME  AN  (45)  , STD (45) .ISSUE ( 149,2 .45) ,PVAR 145) ,KVAR<  70) 

COMMON  N  VAR  • NCOUN 
TYPE  REAL  ISSUE, MEAN 


THIS  PROGRAM  PROVIDES  A  CRUDE  MEASURE  OF  THE  DEGREE  OF 
SIMILARITY  BETWEEN  GUR  FORECASTS  AND  OUTSIDE  FORECASTS 


MAXV=70  $LU I N  =  1 

buffer  in  (luin, i )  < kvar d) , kvar < maxv>  > 

10  IF(UNIT.LUIN)  10,20 
20  suffer  in <luin, i ) (nvar, ncoun) 

30  IF  (UNIT, LUIN) 30 ,40 

40  BUFFER  I N < LU I N ,  1 ) ( ME  AN ( 1 > , STO <N V AR > ) 

50  IF (UNIT , LUIN ) 50,60 
60  DO  90  1=1, NVAR 

BUFFER  IN ( LUIN,  IK  ISSUE (1, 1, I) , ISSUE (NCOUN, 2, 1 > ) 
85  IF(UNIT,LUIN)  85,90 
90  CONTINUE 
NVAR=NVAR 

READ  6, (PVAR(II, 1=1, NVARI 
DO  98  1=1, NVAR 


/ 


/ 


95,96 


/( 


OO  95  K= I , MA X V 
IF(KVAR<K> .LE.O) 

95  CONTINUE 

96  KV  AR ( K )  =  0 
98  KV AR ( I )  =  K 

PRINT  7 

00  100  1  =  1,  NVAR 
IFCPVAR(I)  .LE.O.)  GO  TO  100 
PVAR  d )  =  (FVAR(I  )-MEAN( I) )/ST0(I ) 
C 0 UN  T=  0  « 

DO  200  K=1 , NCCUN 


r-. 
i  I 


/ 


/ 


\ 


/A 

/  ■  > 


IF(ISSUE(K,1,I) .LT.PVARIIJ ) C OUN T=COUNT ♦ 1 . 


C 

C 

C 


200  CONTINUE 

C0UNT=C0UNT/149.  . 

V ALUE= ABS ( LOGFlC CUNT/ <1. -COUNT) ) ) 
PVAR(I  )  =  (P VAR  d  ) *S  TC  <  I  I  )  +  MEAN (I  I 
PRINT  8, K VAR (I)  ,  PVARd)  ,  COUNT,  VALUE 
100  CONTINUE 


\r: 


/ 


FORMAT  STATEMENTS 


6  FORMAT (40F2.0J 

7  FORMAT  </,*  V ARIABLE*,3X,*0UTSI0E*,6X, ’PERCENT*, 6X, *S I  MI L I ARI T Y* , / , 
14X , *NQ • * , 4  X, ‘FORECAST*, 2 X,*SELOW  FOsEC AS T * , 5X , *  ME  A SURE* , // ) 

8  FORMAT  <4X,I3»4X,F6.1,8X,F5.3,10X,F7.4) 

ENC 
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APPENDIX  A 


PROGRAMS  AFFECTED  BY  CHANGES 
TO  DICTIONARY  AND  DATA  TAPES 

This  appendix  provides  the  programmer  with  a  cross-reference  guide  that 
summarizes  the  effect  of  changes  to  the  dictionary  and  data  tapes  on  ail  programs  in 
the  system.  It  should  be  used  whenever  there  is  a  change  to  the  structure  or  format 
of  these  tapes  or  whenever  the  dictionary  tape  is  expanded. 

Table  A- 1  identifies  the  dictionary  files  that  are  used  by  each  of  the  programs. 
When  changes  are  made  to  any  of  these  files,  the  programmer  should  refer  to  the 
section  "Operational  Effects  of  System  Changes"  for  each  of  the  programs  checked. 

Table  A- 2  identifies  the  data  tapes  that  are  used  or  created  by  each  of  the  pro¬ 
grams.  When  changes  are  made  to  any  of  these  tapes,  the  programmer  should  refer 
to  the  sections  "Method"  and  "Dimensioned  Variables"  for  each  of  the  programs  checked. 

In  addition  there  are  five  possible  areas  of  expansion  that  affect  more  than  one 
program  in  the  system: 

If  the  number  of  time  periods  included  in  an  analysis  ever  exceeds  4, 
programs  MATRIX,  PROFLE,  PTHEME,  and  SCORES  will  have  to  be  changed. 

If  the  number  of  documents  from  which  raw  data  is  extracted  exceeds 
999,  programs  MATRIX  and  LETTER  will  have  to  be  changed. 

If  the  structure  of  an  update  card  changes,  programs  CHECK  and  UPDATE 
will  have  to  be  changed. 

If  more  than  45  issue- variables  need  to  be  processed  in  a  single  run,  pro¬ 
grams  MAXPAC,  MBLOC,  PROFLE,  SCORES,  and  VMODEL  will  have  to  be  changed. 

If  two  or  more  variables  to  which  more  than  10  multiply  used  themes 
have  been  assigned  in  common  need  to  be  processed  in  a  single  run,  programs  SCORES 
and  MAXPAC  will  have  to  be  changed. 


A- 1 


TABLE  A-l 


